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IDENTIFICATION 


PRODUCT CODE: AC-S839A-MC 

PRODUCT NAME: CZUDFAO UDA FMTR DATA FILE 
PRODUCT DATE: 10-JULY~-81 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. | 
COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP : UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


THIS DOCUMENT DESCRIBES THE USAGE OF THE UNIBUS DISK _ ADAPTER 
(UDA) DiSK FORMATTER FROM THE USER'S VIEWPOINT. THIS DOCUMENT DOES 
NOT DESCRIBE THE ACTUAL FORMATTING OF THE MEDIA, BUT RATHER THE 
POSSIBLE INTERACTIONS WITH A HUMAN OPERATOR. 


THERE ARE FOUR GENERAL MODES OF FORMATTER OPERATION: 


QO BUILD - THIS MODE IS GENERALLY USED BY MANUFACTURING PERSONAL 10 
INITIALLY FORMAT A NEW MEDIA. - IT USES DATA STORED ON THE MEDIA, FROM 
A LOCATION WHICH IS NORMALLY INACCESSABLE, TO LOCATE AND REVECTOR THE 
BAD BLOCKS ON THE MEDIA. | 


O REFORMAT - THIS MODE IS USED TO FORMAT A MEDIA WHICH HAS BEEN 
PREVIOUSLY FORMATTED, AND IS BEING REFORMATTED TO CLEAR EXISTING DATA 
OR TO CHANGE THE MODE OF THE MEDIA (512/576 BYTES PER SECTOR). IT IS 
ASSUMED THAT THE FACTORY CONTROL TABLE (FCT) IS STILL IN TACT. 


O RESTORE - THIS MODE WILL ONLY BE RUN BY DIGITAL FIELD CIRCUS 
PERSONAL . IT PROVIDES AN EXTERNAL COPY OF THE FCT, PRODUCED AT BUILD 
TIME AND STORED OFFLINE BY DIGITAL, TO THE UDA FORMATTER. 


O RECONSTRUCT - THIS MODE IS USED WHEN NONE OF THE OTHER MODES ARE 
POSSIBLE. IT DETECTS BAD BLOCKS BY PREFORMING REPETATIVE READ CHECKS 
OF EACH SECTOR. FOR THIS REASON, A RECONSTRUCT RUN TAKES CONSIDERABLY 
LONGER THAN THE OTHER MODES. 


1.2 SYSTEM REQUIREMENTS 

PDP=11 PROCESSOR 

28k MEMORY 

TERMINAL 

PROGRAM LOAD DEVICE 

UDA50 CONTROLLER 

1 OR MORE SDI COMPATIBLE DISK DRIVE 
1.3. RELATED DOCUMENTS AND STANDARDS 


DEC STD 166 


2.0 OPERATING INSTRUCTIONS 
THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
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FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 
2.1 COMMANDS | 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘'START"’. 


cue SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED _IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/"ASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3 


/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/ TESTS: 1-5/PASS: 1000/EOP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 


EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
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SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE °‘/TES:1-5°° INSTEAD OF *'/TESTS:1-5"’. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACK 
COMMAND 


TESTS PASS FLAGS EOP UNITS 


és2 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR ~ CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
: CALLED BY PRINTX MACRO'S) 
PRI NIRECT MESSAGES TO LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE "'BELL'* ON ERROR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTI€AL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


ania 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A 'BELL’’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER:BOE 


2.4 HARDWARE QUESTIONS 
THE DM PROGRAM (CURRENTLY KDUBAO.PAK) AND THE HOST PORTION OF THE 
FORMATTER (CURRENTLY ZDUBAO.BIN) MUST EXIST ON THE BOOT DEVICE. THE 
FORMATTER IS STARTED BY ENTERING: 
RUN ZDUBAQ 


WHEN THE HOST PORTION HAS BEEN LOADED, SEVERAL __UNINFORMATIVE 
STATEMENTS WILL BE PRINTED, AND THEN THE FOLLOWING PROMPT WILL APPEAR: 


DR> 
RESPOND WITH: 
START/PASS:1 


THE NEXT QUESTION LOGGED WILL BE AN OPTION TO CHANGE THE DEFAULT RUN 
PARAMATERS OF THE FORMATTER. THE QUESTION IS 


CHANGE HW (L)? 


THE DRIVE WITH A UNIT PLUG NUMBER OF O USING THE EXISTING FCT, AND 
STOP IF THAT FCT IS BAD. IF THESE DEFAULTS ARE ACCEPTABLE ENTER ‘N’ 
AND THE FORMAT WILL BEGIN. IF YOU ENTER ‘'Y'’ THEN YOU WILL HAVE TO 
ANSWER THE FOLLOWING QUESTIONS 


UNITS (D)? 

THE ANSWER TO THIS QUESTION DEFINES HOW MANY UDAS ARE JO _ RUN 
FORMATTERS CONCURRENTLY. A VALID RESPONSE IS A DECIMAL NUMBER FROM 1 
TO 64 (MEMORY AVAILABILITY PERMITTING). THE FOLLOWING BLOCK OF 
QUESTIONS WILL BE REPEATED ONCE FOR EACH UNIT (UDA). 

QUESTION 1: UNIBUS ADDRESS OF UDA (A)? XXXXXX 


WHERE XXXXXX IS THE CURRENT DEFAULT (INITIALLY 172150). ENTER THE 
APPROPRIATE EVEN ADDRESS OR ENTER <CR> TO TAKE THE DEFAULT. 


QUESTION 2: UNIT NUMBER TO FORMAT (D)? X 
X IS THE CURRENT DEFAULT (INITIALLY 0). ENTER THE NUMBER ON _ THE 


UNIT PLUG OF THE DRIVE TO BE FORMATTED (DO NOT CONFUSE THE UNIT 
NUMBER, 0-63, ASSIGNED BY XXDP+ WITH THE UNIT NUMBER OF THE DRIVE). 
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QUESTION 3: USE RESIDENT FCT (L)? X 


¥ IS THE CURRENT DEFAULT (INITIALLY Y). IF THIS QUESTION IS 
ANSWERED ‘‘Y’’ THEN A REFORMAT MODE FORMAT WILL BE PREFORMED AND THE 
NEXT QUESTION POSED IS NUMBER 4. IF THIS QUESTION IS ANSWERED "N'" THE 
NEXT QUESTION POSED IS NUMBER 5. 


QUESTION 4: STOP IF RESIDENT FCT IS BAD (L)? X 

% 1S THE CURRENT DEFAULT (INITIALLY Y). IF THIS QUESTION IS 
ANSWERED ‘‘Y’' A REFORMAT MODE FORMAT WILL BE PERFORMED, AND NO FURTHER 
QUESTIONS WILL BE ASKED. THE FORMAT (OF THIS DRIVE ONLY) WILL 6E 
ABORTED IF THE FCT IS UNUSABLE. IF THIS QUESTION IS ANSWERED ‘N'’ THEN 
A RECONSTRUCT MODE FORMAT WILL BE PREFORMED EVEN IF THE FCT CAN NOT BE 
USED. QUESTIONING CONTINUES WITH QUESTION 6. 


QUESTION 5: DOWN LINE LOAD FCT (L)? X 


X IS THE CURRENT DEFAULT (INITIALLY N). ANSWERING THIS QUESTION 
‘y'* RESULTS IN A RESTORE MODE FORMAT BEING RUN, AND NO MORE QUESTIONS 
WILL BE ASKED. ANSWERING ‘'N’’ CAUSES QUESTION 6 TO BE ASKED. 


QUESTION 6: 


SERIAL NUMBER TQ BE ASSIGNED (TOTAL 4 WORDS) WORD 1? (D) 
WORD 2? (D) 
WORD 3? (D) 
WORD 4? (D) 


THIS IS THE SERIAL NUMBER TO BE ASSIGNED TO THE DISK IF THE FCT 
WAS NOT USED. THERE IS NO DEFAULT VALUE, A NON-ZERO VALUE SHOULD BE 
CHOSEN AND IT SHOULD BE UNIQUE WITHIN THE INSTALLATION. NO FURTHER 
QUESTIONS ARE ASK. 


NOTE THAT ONCE THE QUESTIONS HAVE BEEN ANSWERED FOR EACH UNIT, 
THOSE ANSWERS BECOME THE DEFAULT FOR THAT UNIT. 


IF QUESTION 5 WAS ANSWERED ‘'Y’', THEN QUESTION 7 IS ASKED. 
QUESTION 7: ENTER FILE NAME FOR DOWN LINE LOAD (A)? XXXXXX.YYY 


XXXXXX.YYY IS THE FILE NAME AND EXTENTION OF THE BAD SECTOR FILE 
1S USED BY THE FORMATTER. IF A NONEXISTENT FILE IS SPECIFIED, THE 
THE FORMATTER PRONTS A LOOK UP ERROR AND RETURNS TO THE MONITOR. 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ‘'CHANGE SW (L) ?”° 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING , 

''Y'' THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTION MUST BE ANSWERED: 
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DATE VAX a (TOTAL 4 WORDS) WORD 1? (D) 


THIS ISHTHE DATE TO BE ASSIGNED TO THE MOST RECENT DATE OF FORMAT 
| FCT OF EACH DRIVE FORMATTED. THE DEFAULT IS ZERO. 
| , 2.6 QUICK START-UP PROCEDURE (XXDP+) 
| 1) START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 5OHZ (IF THERE 
1S A CLOCK) QUESTIONS 


. TYPE ''R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE *’START'’ 

ANSWER THE "‘CHANGE HW'’ QUESTION WITH ‘'Y"’ 

. ANSWER ALL THE HARDWARE QUESTIONS 

. ANSWER THE ‘'CHANGE SW'' QUESTION WITH ‘N"’ 

+ WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 MESSAGES 


3.1 ERROR MESSAGES 
eee 


LN 


NO Ww & 


IF AN ERROR WAS ENCOUNTERED DURING FORMATTING, THE MESSAGE 


UDA FORMATTER ERROR OCCURED 
ERRUR NUMBER REPORTED WAS XXX 
ERROR CODE WAS YYYYYY DECIMAL 
ERROR NUMBER MEANS: 
EXPLAINATION 
UNIT X = REMOVED FROM TESTING FOR REMAINDER OF PASS. 


1S LOGGED. XXX REPRESENTS THE INTERNAL FORMATTER ERROR NUMBER. IF 
THIS ERROR NUMBER IS KNOWN BY THE HOST PORTION OF THE FORMATTER, THEN 
THE ASCII MESSAGE DESCRIBING THIS ERROR IS ALSO LOGGED. YYYYYY IS AN 
ADDITIONAL ERROR CODE. AN EXPLAINATION IS REPORTED WITH EACH ERROR. 
3.2 OTHER MESSAGES 

ONCE THE FORMATTER BEGINS EXECUTING, THIS MESSAGE IS PRINTED. 


FORMAT(S) BEGUN 





—— adnan 
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| ONCE A CYLINDER HAS BEEN FORMATTED, THIS MESSAGE APPEARS. 
| UNIT X - CYLINDER YYY COMPLETED 


‘ a MESSAGE APPEARS IF THE UDASO HAS NOT COMMUNICATED WITH 
H . 


ann 


OR INDEED IS HUNG. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP’’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
THE FORMAT HAS BEEN SUCCESSFULLY COMPLETED WHEN THE MESSAGE 
FORMAT SUCCESSFULLY COMPLETED 


j 

| 

THE UDA HAS NOT RESPONDED LATELY 

; THIS COULD OCCUR IF THE UDA IS DOING A LONG SERIES OF CALCULATIONS 
1S LOGGED. 


SEQ 0009 
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TITLE DATA FILE FOR PDP-11 UDA DISK DRV FMITR 
-IDENT /01.00/ , 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES #0 THESE LICENSE TERMS, TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Se Be Be Be Be Fe Se Be Be Be Be Be 
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VERSION 01.00 
M. A. PARENTI  16-MAY~-80 
MODIFIED BY: | : 


Be Be Be Be Be Be Be Be Fe Be Be Be Be Be Be Be Be Be 


M. A. PARENTI 09-DEC-80 
NEW DM INSTRUCTIONS (MEM -> MEM) 
CODE OPTIMIZATION 


31-MAR-81 
M. A. PARENTI | 
ADDED DOUBLE WORD ADDRESSING FOR OVERLAY ADDRESSES 


21-APR-81 
M. A. PARENT] . 
FIX GROUP OFFSET CALCULATION 
23-APR-81 
M. A. PARENTI 
FIX ZERO GROUP PROBLEM 


24-APR-81 
M. A. PARENTI 
FIX LBN GROUP PROBLEM 
FIX RECAL WAIT PROBLEM 
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™N 
Be Be Se Se Be Be Be Be Ba Fe Be Be Ba Be Ba Ba Se Be Be Ba Be 


98 


pat tS SS Oe oe ee 
FAVS SRLAGRAL IS SES 


05-MAY-81 
M. A. PARENTI 
FIX SIZE PROBLEM FOR RA81, 


13-MAY-81 
Mm. A. ENTI 
ADD LIMITED DUP FUNCTIONALITY 


15-MAY-81 
M. A. PARENT! 
FIX SUBUNIT MASK PROBLEM 


15-MAY-81 
M. A. PARENTI 
ONLY WRITE NON-PAD BLOCKS OF FCT 


15-MAY-81 
M. A. PARENTI 
Fix COMPUTATION OF NON-PAD FCT BLOCKS 


15-MAY-81 
M. A. PARENT! 
FIX BLOCK ZERO FCT PROBLEM 


28-MAY~81 
M. A. PARENTI 
FIX SUBUNIT PROBLEMS 
WRITE ONLY NON-PAD BLOCKS OF RCT 


01-JUN-81 
M. A. PARENTI 
FIX DOUBLE COMPARE PROBLEM 


08-JUN-81 
. A. PARENTI 
FIX EXISTING FCT FORMAT PROBLEM 


1 7-JUN~81 } 
M. A. PARENTI 
FIX SUBUNIT WRITE PROTECT PROBLEM 


17-JUN-81 

M. A. PARENTI 

ADD STATUS UPDATES AT VARIOUS PLACES 
22-JUN-81 

M. A. PARENTI 

FIX RBN STARTING BITS PROBLEM 
22-JUN-81 

M. A. PARENT! 

FIX NON-PAD RCT INITIALIZE PROBLEM 


06-JUL-81 
M. A. PARENTI 


I 
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115 : FIX STATISTICS COUNT OF BAD BLOCKS TO NOT INCLUDE RBN ! 
1 : VERSION 1.0 FOR RELEASE 
119 * UDASO DISK FORMATTER 
3 : 
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} .SBTTL EQUATES 
3 ; EQUATES 
¢ 3 
4 ; CONDITIONAL FLAGS 
2 : : 
9 000001 (ONG = i, = COMPLETE MESSAGE ON CYL (1) 
10 “OR MOD 16 CYL (0) 
1 000000 PROD = 0 3 “PRODUCTION (1) 
1 =NOT PRODUCTION (0) 
16 : OFFSETS FOR FORMAT TRACK TABLE 
16 000000 FT.BUF = 0. :BUFFER POINTER OFFSET 
17 000001 FT.LOW = 1. “LOW ORDER HEADER OFFSET 
18 000002 FT.HI = 2. “HI ORDER HEADER OFFSET 
20 : | 
z : 
3 | : OFFSETS FOR READ/WRITE BUFFERS 
$2 000000 kW. STAT = 0. 7 - STATUS (12-15), NEXT BUFR PTR (0-14) 
27 000000 RW.ER1 = b. - : ALSO USED AS ECC ERROR INDICATOR 
28 000005 RW.DUM = 5. : POINTER TO DUMMY SDI CONTROL BLOCK 
9 000001 RW.BUF = :. - POINTER TO DATA BUFFER 
0 000002 RW.LOW = 2. > 1ST HEADER WORD (LO ORDER LBN) 
21 000003 RW.HI = eo : 2ND HEADER WORD (HI ORDER LBN) 
32 000004 RW.CMD = é. : SDI RT CMD (8-15), HEAD ADDR (0-7) 
3 000000 RW.DAT = 0. : 1ST WORD OF 256 WORD DATA BUFFER 
30 000400 RW.EDC = 256. >: EDC 
33 000401 RW.ER2 = ‘oat : 1ST ECC RESIDUE 
37 
3 
40 : OFFSETS FOR CHECK PASS READ COMMANDS 
d ‘ | 
4 000000 RB.BUF = 0 -BUFFER OFFSET 
byt 000001 RB.LOW = :: [LOW ORDER BLOCK NUMBER 
45 000002 RB.HI = 2. “HIGH ORDER BLOCK NUMBER 
46 000003 RB.CMD = 3. “READ COMMAND AND TRACK NUMBER 
7 000004 RB.IM = 4 “IMAGE COUNTER 
rt ; XFC DEFINITION EQUATES 
51 000000 BREAK = 0. -BREAKPOINT XFC CODE 
5 000001 FORMAT = i; “FORMAT TRACK XFC CODE 
5 900002 READ = 2. “READ N SECTORS XFC CODE 
54 00000 WRITE = 3. “WRITE N SECTORS XFC CODE 
55 000004 SEND = rig “SEND SDI COMMAND XFC CODE 
56 000005 RCV 2 5. “RECEIVE SDI MESSAGE XFC CODE 
57 000006 CMPDAT = é. “COMPARE DATA PATTERN XFC CODE 


—— = 
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58 000007 STATUS = ) >RETURN DRIVE STATUS XFC CODE 
59 000010 ECHO = 8. =ECHO DATA TO DRIVE XFC CODE 
00001 1 DINIT = 9. = DRIVE INITIALIZE XFC CODE 
61 000012 SIP = 10 “WAIT FOR SECTOR/INDEX PULSE XFC CODE 
62 00001 3 UREAD = 11 *READ UNIBUS MEMORY XFC CODE 
63 000014 UWRITE = 12 sWRITE UNIBUS MEMORY XFC CODE 
64 000015 CC = 13 :DO ECC ON BUFFER XFC CODE 
65 000016 MAINTR = 14. :SEND MAINT READ DATA XFC CODE 
66 000017 MAINTW = 15 sRECEIVE MAINT WRITE DATA XFC CODE 
67 000020 CVT = 16 >: CONVERT TO PHYSICAL sig XxFC CODE 
68 000021 E = 17 > TERMINATE DM PROGRAM X ODE 
4 000022 UPDATE = 18 = UPDATE DUP PROGRESS INDICATOR KFC 
| : GET CHARACTERISTICS OFFSETS 
73 000000 SHORTO = 0. :SHORT TIME OUT 
74 001 FRCPY = a = NUMBER OF F/RCT COPIES 
75 000001 RTRY = :e = NUMBER OF RETRIES 
76 000001 LONGTO = Te :LONG TIMEOUT 
77 000002 ERRSYM = 2. = NUMBER OF ALLOWABLE ECC ERRORS 
78 000002 ERCV = ” >ERROR RECOVERY LEVELS SUPPORTED 
79 00007 REVSEC = 7 = REVS/SECOND 
£0 00001 1 OFFS < 9. :GROUP OFFSET 
81 000000 CYLBN = 0. :CYLINDERS IN LBN AREA 
82 000002 STLBN = e. “HIGH ORDER STARTING LBN 
83 003 STRBN = Le :HIGH ORDER STARTING RBN 
84 000002 STXBN = i :HIGH ORDER STARTING XBN 
85 OOC ' STDBN = 5. =HIGH ORDER STARTING DBN 
000091 STCYL = 1. *HIGH ORDER STARTING CYLINDER 
87 000011 LBNTRK = 9. = NUMBER OF LBNS PER TRACK (512) 
88 000004 RBNTRK = 4. = NUMBER OF RBNS PER TRACK 
89 000021 XBNCYL = fs = NUMBER OF CYLINDERS IN XBN AREA 
022 DBNCYL = 18. :NUMBER OF CYLINDERS IN DBN AREA 
91 000012 LBNHOST = 10. :NUMBER OF LBN'S IN HOST AREA 
92 000002 GRPCYL = 2. = GROUPS/CYLINDER 
93 000003 TRKGRP = . - TRACKS/GROUP 
94 000010 FCTSZ = 8. ; “FCT SIZE IN SECTORS 
95 000014 RCTSZ = 12. *RCT SIZE IN LBN‘'S 
000005 DATA = 5 >DATA PREAMBLE SIZE 
4A 000005 HEAD = ee -HEADER PREAMBLE ile 
99 : 
100 ’ BIT DEFINITIONS 
101 : 
102 " 
1035 000001 BITO = 000001 
104 02 BIT] — 000002 
105 000004 BIT2 = 000004 
106 000010 BITS 3s 000010 
107 000020 BIT4 = 000020 
108 040 BITS x 000040 
109 000100 BIT6 = 000100 
110 000200 BIT7 = 000200 
111 000400 BIT8 = 000400 
112 1000 BIT9 = 001000 
113 002000 BITTO = 002000 
114 004000 BIT11 = 004000 


on ae —e 
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EQUATES 


WWNGAVLEWN "OO DOONOW 


ae > 2 
wn 


PAA AAD ADAM MV ES EE ES EY EY EYE EY EAN 


ce el th eh he 5 8 8 St FH SP 2 1 3 BBS OO 
NO OO 


0600400 


000175 


000000 


010000 


000000 


eee 


PARITY 


RCVRDY 


ee 


100000 


RANDOM DEFINITIONS 


177400 


000175 


HEADER CODES 


000000 


7777 
gilli las 


RCT HEADER CODES 


000000 


100000 


DRIVE STATUS BITS 


sHIGH BYTE MASK 

;LOW BYTE MASK 

;HIGH BYTE PLUS 2 BITS 

;HIGH BYTE PLUS 1 BIT 

:ALL BUT HEADER CODE 

;CLEAR FOR FRCPY 

;CLEAR FOR STARTING BITS 
;BUFFER CLEAR MASK 

;FOR CHECK OF MOD 16 CYLINDER 
;STATUS VALID BIT(1=VALID) 
:STATUS VALID BIT(1=VALID) 
:STATUS PARITY BIT(1=PARITY ERROR) 
;REAL TIME ERROR(1=ERROR) 


; UNSUCCESSFUL COMPLETION 


;GOOD LBN 

-GOOD RBN, PERHAPS UNUSED 
:REVECTORED LBN 

:BAD BLOCK 

:PRIMARY REVECTORED BLOCK 
:CLEAR HDR CODE 

:GOOD DBN 

:GOOD XBN 

:PRIMARY BIT IN FCT 

>BAD HEADER CODE IN FCT 


;FREE REPLACEMENT BLOCK 
;PRIMARY REVECTOR 

; SECONDARY REVECTOR 
;BAD REPLACEMENT BLOCK 
sNULL(FILL) BLOCK 


:READ/WRITE READY BIT POSITION 
sATTENTION 
sRECEIVER READY 


SEQ OO1E 
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00 OC 0S O09 OD 09 02 0000 Oo ~Y NNN 
DOD NOR tO OOS OR IND 


Dopoo0vls 
NOUS WwH- 


ni 
SSx 


eh baa aa al ai alae 
CONOUS WO 


5 a hs a eho te 
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221 


000060 


000001 


ie LL LLL! LOL LLL LLL LAL LL LA A 


GET STATUS BIT MASKS 


© 
<= 
mm 
xX 
a 
> 
~< 


TABLE OFFSETS 


" 
N 


MMM RH OAWON OW 


FLAG EQUATES 


Hou Wn nm i a ae tb the at 


;RUN/STOP SWITCH 1=iN 

;PORT SWITCH 1=IN 

[DIAGNOSTIC REQUESTED 1=VES 

SWRITE PROTECT SWITCH SU: 0,1 1=IN 
:SPINDLE READY 1=YES 

[DIAG CYL ACCESS ENABLED 1 : 
:FORMAT CYL ACCESS a 1=YES 
:DRIVE INITIALIZED 1=YES 

[WRITE ERROR (WRITE LOCKED) 

“DIAG FAILED - CANNOT DRIVE CLEAR 
;COMBINED CLEARABLE ERRORS BITS SET 
;ERROR BYTE OFFSET (3RD WORD) 


;NUMBER OF OVERLAYS 

;LENGTH OF 1 OVERLAY BLOCK 

:WORD COUNT OF OVERLAY 

;LOW ORDER UNIBUS ADDRESS 

:HI ORDER UNIBUS ADDRESS 

[OFFSET INTO TABLE 

;SECOND OVERLAY OFFSET INTO TABLE 
:THIRD OVERLAY OFFSET INTO TABLE 
=FOURTH OVERLAY OFFSET INTO TABLE 
“FIFTH OVERLAY OFFSET INTO TABLE 
-SIXTH OVERLAY OFFSET INTO TABLE 
=SEVENTH OVERLAY OFFSET INTO TABLE 
:EIGTH OVERLAY 


:NINTH OVERLAY 
sELEVENTH OVERLAY 

> TWELVTH OVERLAY 

> THIRTEENTH OVERLAY 
;FOURTEENTH OVERLAY 
: SIXTEENTH OVERLAY 

; SEVENTEENTH OVERLAY 
sNINETEENTH OVERLAY 
; TENTH OVERLAY 


sFCT AVAILABLE 


;FORMAT DBN AREA 
:REVECTOR FLAG 

;PRIMARY FOUND FLAG 

-FCT EMPTY FLAG 

:DO BEST GUESS IF FCT BAD 
:RCT LAST BLOCK FIXED UP 
:FCT FOUND BAD (FOR STATS) 
=MANUFACTURING FORMAT 
:DOWN-LINE LOAD FLAG 

=BEST GUESS FORMAT 


SEQ 0017 


- ————————o nna 
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SBHVRARAOSS 


™m 
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249 


wi 
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904000 
020000 
040000 
010000 
100000 


40 
000100 


000000 


000013 


000001 


000016 


000005 
000011 


000002 
000003 
000004 
000006 
000010 
000012 


STSC 


= BIT11 sONLY WRITE FCT SCRATCH 

= BI1T13 : INIT RCT FLAG 

- BIT14 :FORMAT FINISHED FLAG 

= BIT12 [CHARACTERISTICS DONE FLAG 

~ BIT15 TRETRY FLAG 

FLAG? EQUATES 

= BI10 7WRITE PROTECT FLAG 

= BiTl SRETRY DONE ON THIS SECTOR 

~ BIT2 ;FLAG FOR PRIMARY GOOD EDC 

= BITS sFLAG FOR ERROR EXIT TRY 

= BIT4 :HOST GONE FLAG 

= BIT5 ;BAD HEADER ON CHECK PASS READ 
= BIT6 :RCT INIT DONE ‘WITH ONE FULL PAD BLK) 


PHYSICAL CONVERSION XFC BLOCK EQUATES 


:CYLINDER PARAMETER 

=BLOCK NUMBER PARAMETER 
;BLOCKS PER TRACK PARAMETER 
;ONLY FOR RBN‘S 

:CYLINDER RETURNED 

;GROUP RETURNED 

7 TRACK RETURNED 

“STARTING SECTOR RETURNED 
:SECTOR FROM INDEX 


=~ OOAUILMO 


— Ce. « 


DMBUF OFFSETS 


= Ts ; STARTING OVERLAY ADDRESS 
= 5. : DESIRED UNIT NUMBER 
= 4. FLAG WORD 
= 14. “BUFFER LENGTH 
FLAG FORMAT 
BITO ~ 0 DO NOT USE FCT 
: 1 USE FCT | 
- BIT1 =-..0 CONTINUE IF FCT BAD 
1 STOP IF FCT BAD 
“TTS OD NO DLL OF FCi 
1 DLL FCT 
= 3s >SERIAL NUMBER 
= 7 “DATE IN VAX/VMS FORMAT 
= a ;LBN'S BAD 
= LP ; SECONDARY REVECTORS 
= 4. :RCT BLOCKS BAD 
= 6. :DBN BLOCKS BAD 
= 8. :XBN BLOCKS BAD 
= 10. [RETRY COUNT 


SEQ 0018 
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SSS 
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WU WIAIL NANI) 2 32 898 082s 
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SO 


EY 
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000012 


007774 


000000 
000000 


DUPOVL 


MASK 
UID 





= 4. sFCT FLAG 


FCT BLOCK OFFSETS 


2 : SERIAL NUMBER 
1 :FORMATTIN INSTANCE NUMBER 
14. :COUNT OF USED 512 ENTRIES IN FCT 
10. :MOST RECENT FORMAT DATE 
el. sFCT FLAG FOR GOOD/BAD FCT 
BIT15 sFLAG ~ 0 = FCT GOOD 
7 1 = FCT KNOW BAD 


RCT BLOCK OFFSETS 


= 0 ;SERIAL NUMBER OFFSET 
MISC DEFINITIONS 


;LENGTH OF 2 IMAGE ENTRIES 
;LENGTH OF 3 IMAGE ENTRIES 
:LENGTH OF CHECK PASS READ BLOCK 
:LENGTH OF REVECTOR TABLE ENTRY 
;LENGTH OF SECONDARY TABLE 

; OMMAND 


= 6. 

= a 

= ve 

= % 

= 013400 :;SDI READ C 

= 122400 :SDI WRITE COMMAND 

= 100000 :SIGNAL TO XFC NO MORE BLOCKS 

= 3, :LENGTH OF ERROR LIST ENTRY 

= BIT14 :FULL BBUFFER BIT 

= BIT12 :ECC ERROR BIT 

= 128. -NUMBER OF RBN COPIES IN REVECTOR 
= of :LENGTH OF IMAGE BLOCK 

= BIT13 :BAD FLAG IN IMAGE BUFFER 

= BiT15 >LAST FLAG IN IMAGE BUFFER 

= BIT14 sRECIRCULATE IN FORMAT IMAGE BUFFER 
= 126736 -FCT MODE INDICATOR FOR 512 

= 074161 -FCT MODE INDICATOR FOR 576 

= 32768. : TIMER LOOP VALUE 

= 8. -FINAL SECONDARY WRITE RETRY LIMIT 
= 7774 -OVERLAY STARTING ADDRESS FROM DUP 
STATUS OFFSETS 

= 0 ; SUBUNIT OFFSET MASK 

= 0 -UNIT NUMBER OFFSET 


BUFFER DEFINITIONS 
BUFFERS ARE 269 WORDS LONG AND ARE LOCATED AT LOC 4535(8)-7777(8) 


seers ea ELL LLL LOL LLL LE LA 
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007275 
BUFFER ASSIGNMENTS 


Hu nn te we a 
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G. 
nn 
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7775 


———————— aan nae 


;BUFFER 1 AT LOCATION 4535(8) 
[BUFFER 2 AT LOCATION 5152(8) 
BUFFER 3 AT LOCATION 5567(8) 
BUFFER 4 AT LOCATION 6204(8) 
BUFFER 5 AT LOCATION 6621(8) 
[BUFFER 6 AT LOCATION 7236(8) 


;READ/WRITE BUFFER 

:BUFFER OF BAD PBN'S 

;DATA FOR GOOD SECTOR 

“DATA PATTERN FOR PRIMARY REVECTOR 
: SECONDARY REVECTOR BUFFER 

:READ COMMAND BUFFERS 

:RCT BLOCK BUFFER 

>RBN FORMAT BUFFER 

;FORMAT IMAGE BUFFER 

“BUFFER EXCESS AFTER FORMAT IMAGE 
;1S USED TO HOLD BLOCKS TO BE 
“REVECTORED. MAX BLOCKS BEFORE 
;REVECTOR ROUTINE IS CALLED VARIES 
:WITH THE SIZE OF THE FORMAT BUFFER AREA 
>MAX BUFFER ADDRESS 


SEQ Uc C20 
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———EE———————eeeEVEV1*"*' 
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MEPL REELS PWWWWWNWWINNNININIPININN 2 PP ee ee ee 
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003047 


000000 
009000 
000000 
006000 
100000 
000000 
000000 
000000 


000200 
000000 


000000 


000000 


HSLIM: 


DDUMMY: . 


TEMP2: 
MULPC: 


OFFSET: 


TEMP: 


.SBTTL DATA STRUCTURES 


DMCODE KKDUB.0.714.15.255. 


IMP 
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STAR 


DATA STRUCTURES 
RETRY COUNTERS 


Oooo 


; JUMP TO START LOCATION 


;UNSUCCESSFUL CMD RETRY CNTR 

; TRANSMISSION ERROR RETRY CNTR 
;INITLIZATION ERROR RETRY CNIR 
;SEEK RETRY COUNT 


;STATUS POINTER 

;POINTER TO DATA BUFFER 
sFIRST WORD OF EXPECTED HDR 
: SECOND WORD *' ff ~ 
;REAL-TIME SDI COMMAND 
;POINTER TO SDI BLOCK 


DUMMY DOUBLE WORDS AND DUMMY SDI COMMAND 


-WORD 100000 

"WORD O 

“wORD 0 

"WORD 0 

“WORD 0 

"WORD 0 

-WORD 200 

"WORD  SCR-5 

WORD 0 

"WORD 

_BLKW 2 

"WORD O 

‘BLKW 2 

CURRENT UDA PORT 
,WORD O 
MESSAGE TABLES 

MSG GST,1,S1,7 
MSG GCR.1.CR.11 
MSG GSR,2,SCR.19 
MSG 18.2,51,6 
MSG RUN, 1,517.6 
MSG ACC.3,ST.6 
MSG DCLR.2.ST,6 
MSG ISEEK,6,S1.6 
MSG IRECAL,1,ST,6 
MSG ERECOV.2,S1.6 
MSG ONLINE .2,57,6 


sHEADER CMP LIMIT 

;POINTER TO SUBUNIT CHAR 
;DUMMY DOUBLE WORD FOR ONE 
;BYTE OPERAND CONVERSION 
;ALSO USE AS TEMP 
;MULTIPLICATION BUFFER 
;RESERVED LOCATION (A+7) 
:FOR EASIER REFERENCE 
;USED FOR COMPUTATIONS 


:SDI INTERCONNECT 


:GET STATUS 

;GET CHARACTERISTICS 
:GET SUBUNIT CHARACTERISTICS 
; UNLOAD DRIVE 

;LOAD DRIVE 

;SET FORMAT ACCESS 
:DRIVE CLEAR 

; SEEK 

; RECALIBRATE 

;ERROR RECOVERY COMMAND 
ONLINE COMMAND 


cen ne A TO DD LE OL LLL LDL LD LL 


SEQ 0021 
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DATA STRUCTURES 


58 : 
| an MESSAGES AND COMMANDS 
61 001015 400 GST: WORD 000011*256. :GET STATUS COMMAND 
| 62 001016 103460 GCR: “WORD 000207*256. “GET CHARACTERISTICS 
| 63 001017 104000 GSR: .WORD 00210*256. “GET SUBUNIT CHARACTERISTICS 
| 64 001020 000000 .WORD 0 : SUBUNIT MASK 
65 001021 102000 DIS: “WORD 000204*256. :UNLOAD DRIVE 
67 001022 000000 WORD 0 “NO SPIN DOWN MODIFIER 
71 001023 006000 RUN: “WORD 000014*256. - INITIATE LOAD 
72 001024 100400 ACC: WORD 000201*256. -ACCESS DIAG AND FMT CYL 
73 001025 003006 WORD 3006 “MASK BYTE/MODE BYTE 
74 001026 002400 DCLR: .WORD 000005*256. -DRIVE CLEAR 
75 001027 000374 WORD 374 -BITS TO CLEAR | 
76 001030 ST: _BLKW 7 -STATUS MESSAGE BUFFER 
77 001037 CR: OK 17. = CHARACTERISTICS MESSAGE BUFF 
78 001052 SCR: .BLKW 19. =SUBUNIT CHARACTERISTICS BUFF 
79 001075 005000 ISEEK: .WORD 000012*256. “INITIATE SEEK 
80 001076 000000 WORD 0 : ch 
81 001077 000000 WORD O : " 
82 001100 000000 WORD 0 ; nf 
83 001101 107000 IRECAL: .WORD 000216*256. - INITIATE RECAL 
84 001102 003000 ERECOV: .WORD 000006*256. -ERROR RECOVERY COMMAND 
85 001103 000000 WORD O *RECOVERY LEVEL 
86 001104 105400 ONLINE: .WORD 000213*256. -ONLINE COMMAND 
87 001105 000377 WORD 377 >COMMAND TIMEOUT (SECS) 
a : DISK LOCATION POINTERS 
91 001106 000000 CURRBN: .WORD 0 - CURRENT RBN 
4 001107 000000 .WORD 0 ti : 
93 001110 000000 CURPBN: .WORD 0 =CURRENT PBN 
94 001111 000000 .WORD 0 : " 
95 001112 000000 CURTRK: .WORD 0 = CURRENT TRACK 
96 001113 000000 CURBN: .WORD 0 *CURRENT BLOCK NUMBER 
97 001114 000000 .WORD 0 
98 001115 CURLBN: -FOR RCT INIT 
99 001115 000000 CURXBN: .WORD 0 -CURRENT XBN NUMBER 
100 001116 000000 .WORD 0 
101 001117 000000 HOLDBN: .WORD 0 :BLOCK NUMBER OF FIRST BLOCK ON CYL 
102 001120 000000 | .WORD 0 ; “an 
* 103 001121 0 HOLRBN: .WORD 0 “BLOCK NUM OF FIRST RBN ON CYLINDER 
104 001122 .WORD 0 
105 001123 0 HOLDPN: .WORD 0 -PBN OF FIRST SECOTR ON TRACK 
106 001124 0000 WORD 0 
107 001125 000000 CYLNUM: .WORD 0 :CURRENT CYLINDER NUMBER 
108 001126 .WORD 0 : sh 
109 O011¢? 000000 SECTRK: .WORD 0 ; SECTORS/ TRACK 
110 001130 000000 .WORD 0 : ; 
111 001131 000000 SECTCY: .WORD 0 - SECTORS/CYLINDER 
112 001132 000000 WORD 0 : " 
113 001133 LBNLBN: .BLKW 2 -LBN'S IN LBN AREA 
114 0011735 RBNLBN: .BLKW 2 -RBN'S IN LBN AREA 
115 001137 XBNSEC: .BLKW 2 “SECTORS IN LBN AREA 
116 001141 TRKCYL: .BLKW 2 = TRACKS/CYLINDER 
117 001143 LBNCYL: .BLKW 2 “NUMBER OF LBN CYLINDERS 
1718 001145 LBNPCY: .BLKW 2 -LBN'S/CYLINDER 
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DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08: 
DATA STRUCTURES /CYLINDER 
| : ;RBN'S/CYL 
WRB sao Ba: as i Reto an men 
| 121 001136 000000 —-  S “CURRENT OVERLAY 
| 122 901153 000000 Crm: we “HIGHEST PBN IN LBN AREA 
| $$ 001154 HGHPBN: .BLKW 2 sHIGHE | 
126 ; : 
125 ; | 
1$8 STACK | 
128 : | 
150 ; | 
: STACK 
131 001156 Mike 3). “TOP OF STACK 
121% 000000 STACK: .WORD 0 : » SAVE | 
138 001516 000000 STCKSV: .WORD 0 “STACK PTR TEMP S : 
122 MISC DEFINITIONS 
138 : 
FLAG: .WORD 0 :FLAG WORD 
140 901220 900000 FLAG: “WORD 9 1 
143 901992 300000 WRFLG: .WORD 0 4 A ENTRY 
DPBN: .WORD 0 =POINTER TO sell 
148 Oe 1s67 BRDRDS ERRBUF: .WORD 0 “POINTER TO BEGINNING OF REVECTOR BU 
144 001224 000000 ant aa o “MAX NUMBER OF REVECTORS BEFORE 
149 001225 000000 Bea ACh Gonare,woutine 15 CALLED 
: 7 NUMBER 
167 001387 900008 HOLD: {WORD “DOUBLE WORD TEMP STORAGE 
149 001230 000000 oS -ADDRESS OF END IMAGE BLOCK 
150 001231 000000 cit, iam 6 “STARTING ADDRES OF THIS PASS 
13) Oo 1S atte SKPCNT: .WORD 0 OFFSET FOR FIRST READ CHECK 
183 01234 000000 TBLK:  .WORD 0 Bar ery ae 
154 :9 - TRI-LEAVE 
155 RCTTOT: “ALSO RCT TOTAL HOLDING AREA 
156 001235 CUTOF: .WORD 2950. SECT/SECOND CUTOFF 
157 001235 005606 ey eee he ‘ SOUBLE WORD 
158 001236 000000 FCNT: :WORD 0 “COUNT OF USED FCT ENTRIES FOR FORMATTING 
139 OOles7 FCTFMT: .BLKW 2 “SIZE OF ONE FCT COPY 
160 O01 e098 RCTFMT: .BLKW 2 >SIZE OF ONE RCT COPY 
161 O01242 90000 FCTCPY: (WORD 0 “NUMBER OF FCT COPIES 
183 $015¢8 ; NEXT1: .WORD 0 “MUTLI-COPY COUNTER 
164 661 te 800105 INI:  .WORD 69. SINITIAL VALUE FOR EDC 
165 501349 000400 CNT: «WORD 236. : COUNT FOR EDC 
i Bis BS so: is Se errr sess 
ae ; REV 
188 901988 000000 BUFPNT: “WORD 0 ;BUFFER POINTER FOR FCT READ 
170 O01g34 200008 ae A ae ‘BOINT TO CURRENT LOCATION IN FCT LBOKC 
4 Op iSee 000001 FCTCNT: .WORD 1° “CURRENT FCT BLOCK 
178 61 36 $0000 FCTNPD: “WORD 0 ;NON-PAD FCT BLOCKS 
175 $0161 000000 RCTLBN: .WORD 0 “LBN'S IN RCT 


— ee ee ee ae + eee 


FILE F 

STRUCT 
176 001262 
177 oO 487 
178 001301 
179 001305 
180 001311 
181 001312 
182 001313 
183 001314 
184 001315 
185 001316 
186 001317 
187 001321 
188 001322 
189 001324 
190 001325 
191 001327 
192 001330 
193 Oot ea6 
194 00133 
195 001334 
196 001335 
197 001336 
198 001337 
199 001340 
200 
201 
20 
20 
204 
205 
206 
207 . 
208 001341 
209 001542 
210 001345 
211 001344 
212 001345 
215 001346 
214 001347 
215 001350 
216 are 
217 1326 
519 001354 
$s 801385 
21 O01 228 
é ¢ 00135 
é 1360 
224 001361 
225 


SEFER 


and owed ed ed med ed eld old 


qd 
232 00 


367 
31 370 
32 371 


040 
040 
040 
040 


——— nee 


000 
000 
000 
000 


XBBAD: . 
CYLMSG: . 


FCMSG: 


NOTE: 
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POINTERS 


;USED FCT ENTRIES 
;MAINTENANCE BUFFER 
;DATE BUFFER 


; SERIAL NUMBER 

3FCT ENTRIES AT CERTAIN POINTS 
; TOTAL REVECTORED LBN‘'S 

; TOTAL BAD RCT BLOCKS 

; TOTAL DBN BAD BLOCKS 

; TOTAL LBN BAD BLOCKS 


;DUP CODE 

;SIGNAL CYLINDER COMPLET MESSAGE 
;DUP CODE 

sFCT DLL MSG 

;DUP CODE 

;ERROR MESSAGE 

;DUP CODE 

;DONE MESSAGE 

;POINTER TO START OF IMAGE 


;HEADER PREAMBLE LENGTH 
;DATA PREAMBLE LENGTH 


“STARTING DBN BITS 


WHEN ADDING AN ENTRY TO THIS TABLE EQUATE 
OVCNT MUST BE INCREMENTED 


OVL.F1 
OVS.F1 
0 


OVL.Fe 
‘led 


OVL .F3 
tei 


OVL.F4 
—* 


OVL.F5 
‘canta 


OVL.F6 
ehaiee 


OVL.F7 
Bracke 


CVL.F8 
OVS.F8 


0 
OVL.F9 
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OVLBLK:. 


WORD 


“BLKW 
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OVS.F9 
0 


OVL.G2 
ee 


OVL.G3 
wea 


OVL.G4 
Bee.e 


OVL.G5 
* ies 


OVL.G7 
OVS.G7 


0 
OVL.G8 
eases 


OVL.H1 
eae 


OVL.G1 
eas 
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SEQ 0025 


LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF EIGTH OVERLAY 
;LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF EIGTH fos eed 


; ST ADDRESS 
[LENGTH OF SEVENTEENTH OVERLAY 
;LOW ORDER HOST ADDRESS 

:HIGH ORDER HOST ADDRESS 
[LENGTH OF SEVENTEENTH OVERLAY 
:LOW ORDER HOST ADDRESS 

;HIGH ORDER HOST ADDRESS 
;LENGTH OF SEVENTEENTH OVERLAY 
;LOW ORDER HOST ADDRESS 

=HIGH ORDER HOST ADDRESS 

:FOR BUFFER OVERLAYS 


A et en ee 


a ET 
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SSsssss 
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S8SS8SSSSsss 
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35 
9 
40 
ré 
‘8 
fle 
45 
46 
47 
48 
49 
50 
2) 
38 
54 
55 
56 


a ek ed a ets 
PAATIVIV 
Sescs 
Wwr— 


S8Ssss 


CHS se Be Be Be Be 


DC: 
BADEDC: . 


ERRCNT: 
SECCNT: : 


N1: 


NN1 : : 
CNICYL: x 


TOTRCT: 
RCTCNT: 
PCNT: 


A eS 


N 2 
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CONVERSION BUFFER 


«WORD 1045 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 40 
-BLKW 6 


COMPARE DATA XFC CONTROL BLOCK 


s 
J 
DOCONDDOOCVDOOCOCONMO-DOCCOCOCooO°oo°o 


SEQ 0026 


3STARTING CYL PLUS LBN CYL 

;HIGH ORDER 

;LOW ORDER XBN=-X 

;SECTORS PER TRACK 

;HIGH - BOTH FILLED IN DYNAMICALLY 
sFILLED IN BY XFC 


;NUMBER OF WORDS IN PATTERN 
;BUFFER TO COMPARE(NOT FIRST WORD) 
zFIRST WORD OF PATTERM 

:SECOND WORD OF PATTERN 

; THIRD WORD OF PATTERN 
;DIAGNOSTIC WORD(FIRST IN SECTOR) 


;ED£ FOR ABOVE DATA PATTERN 
; EDC FOR RBN BLOCKS 


:FOR TESTING VERIFICATION 

:;SECTOR COUNT 

NUMBER OF ORIGINAL CHECK PASS READ 
;NUMBER OF ERROR READS 


;DITTO 
;NUMBER OF CYLINDERS TO FORMAT 


; CURRENT HEADER 

: CURRENT GROUP 

:NUMBER OF GROUPS TO DO 
NUMBER OF TRACKS TO DO 
:WORD CONSTANT OF 1 
;DOUBLE WORD 

:WORD CONSTANT OF 2 
;DOUBLE WORD 

SCOUNT OF SECONDARY REVECTORS 
COUNT OF SECTORS RETRYED 
POINTER FOR RCT UPDATE 
TOTAL LBN'S IN RCT'S 


;CURRENT RCi BLOCK 

;PBN BLOCK COUNTER 

;COUNT FOR XBN DLL 

sRETRIES FROM SDI 

RECOVERY LEVELS SUPPORTE BY DRIVER 
;TEMP FOR RETRY COUNT 

: TEMP FOR ERROR RECOVERY LEVEL 





Sa’ fal 
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= 
' 
DATA F SEQ 0027 
|MATH SUBROUTINES 
| } SBITL MATH SUBROUTINES 
3 : : 
4 : SUBROUT INES 
7 : 
i . DOUBLE ADD ROUTINE 
2 : INPUT PARAMETERS 
1 : R3 CONTAINS POINTER TO OPERAND 1 
18 : RL CONTAINS POINTER TO OPERAND 2 
15 : OUTPUT PARAMETER 
1? : R4 CONTAINS THE RESULT 
19 001506 65 DADD: MOV R5,-(SP) :SAVE A SCRATCH REGISTER 
0 061507 461 MOV R1,-(SP) “SAVE ANOTHER 
1 001510 35 MOV (R3)+,R5 -GET LOW ORDER OPERAND 
4 001511 31 MOV (R3) ,R1 >GET HIGH ORDER OPERAND 
001512 45 ADD (R4)+,R5 “ADD LOW ORDER OPERAND 
34 001515 +5 BCC DADD1 “BRANCH IF NO CARRY 
5 001514 01 INC R1 “ADD ONE TO HIGH IF CARRY 
3 001515 141 DADD1: ADD (RG) .R1 “ADD OP 2 
? 001516 141 MOV R1, (R4) “SAVE HIGH ORDER 
28 001517 445 MOV R5,-(R4) -SAVE LOW ORDER 
9 001520 261 MOV (SP)+,R1 “RESTORE R1 
0 091321 265 MOV (SP) +,R5 “RESTORE R5 
1 001522 403 DEC R3 “RESTORE R3 
32 001523 000000 RETURN 


DATA FILE FOR PDP-11 


awe ow ee ee - ~— — 


MATH SUBROUTINES 


| 
: 
i 
| 


1 

2 001524 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 001524 
15 001526 
16 001527 
17 001550 
18 001531 
19 001532 
20 001533 
21 001535 
$6 001536 
23 001537 
$e 001541 
26 001542 
e? 
28 

9 

0 

31 

32 
35 
34 

35 

36 
37 001542 
38 001544 
39 001545 
40 001546 
41 001547 
42 001551 
43 001552 
44 001554 
45 001557 
46 001561 
47 001562 
48 001565 
49 001564 
50 001565 
51 001567 
; 

53 001570 
54 

55 

56 

57 


000000 


RERLSS2R 


WsN 
NWWOOUN™NTUN 


Soa 
—~ + = 
wiv 

oO 

— 


Oe ee ee eee - 


000001 


000001 


0007335 
000001 000734 
000733 


DSUB: 


10$: 


DMUL : 


—— ea ee 
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INPUTS: 
R3 
. R4 
: OUTPUT: 
: R4 


MOV (R4)+,R5 
MOV (R4),R1 

SUB (R3),R5 

BCC 10$ 

DEC Ri 


PoP 
RETURN 


SEQ 0028 


++ | 
+ DOUBLE PRECISION FIXED POINT SUBTRACT ROUTINE 


POINTER TO OPERAND 1 (SUBTRAHEND) 
POINTER TO OPERAND 2 (MINUEND) 


POINTER TO RESULT WHERE (R4) = (R4) = (R3) 


SAVE REGISTERS 

GET LO ORDER MINUEND 

GET HI ORDER MINUEND 
SUBTRACT LOW ORDER OPERANDS 


; POSITIVE RESULT 
; BORROW FROM HI ORDER OPERAND 


SUBTRACT HI ORDER OPERANDS 
STORE HI ORDER RESULT 
STORE LO ORDER RESULT 
RESTORE REGISTERS 


++ : 
DOUBLE PRECISION FIXED POINT MULTIPLY ROUTINE 


> INPUTS: 

; R3 = POINTER TO MULTIPLIER (SINGLE PRECISION) 

: RZ = POINTER TO MULTIPLICANT (DOUBLE PRECISION) 
* QUTPUT: | 

, R4 = POINTER TO RESULT WHERE (R4) = (RG) * (R3) 
PUSH RO,R3 SAVE RO & R3 


MOV (R3) ,RO 
5$ 


MOV RO, (R4) 
MOV RO,1(R4) 
20$ 


MOV (R4) ,MULPC 
MOV 1(R4) ,MULPC+1 
MOV dati 


BEQ 205 
CALL DADD 
BR 10$ 
POP R3.RO 


RETURN 


: ++ 
; DOUBLE PRECISION FIXED POINT DIVIDE 
~R3 = POINTER TO DIVISOR (SINGLE 


GET MULTIPLIER 
MULTIPLIER NOT = 0 


; LOAD LO ORDER RESULT 
; LOAD HI ORDER RESULT 


; RETURN 
> COPY MULTIPLICANT FOR DADD 


ADJUST MULTIPLIER FOR *1 
MULTIPLIER = U0, EXIT 
PERFORM ITERATIVE ADDS 


RESTORE RO & R35 


PRECISION) 


ee ee ee en ee ee 


DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08: 


~ <3 


_MATH SUBROUTINES 


} 
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76 00 


SS88S8S8888sss 
oO 
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SSBLRALAVYSS San 
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z 
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RRS 
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000001 


000001 


000001 


10$: 


15$: 


20$: 


30$: 


en 
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HIGH ORDER WORD MUST BE ZERO 


R ) 
= POINTER TO DIVIDENT (DOUBLE PRECISION) 


: R4 = 

: OUTPUT: 

: R3 = POINTER TO REMAINDER 

. R4 = POINTER TO QUOTIENT 

> NOTE - THE CASES WHERE EITHER THE DIVISOR OR DIVIDENT ARE ZERO, 

‘ ARE NOT CONSIDERED IN THIS ROUTINE. 

PUSH RO,R1,R2,R5 ; SAVE REGISTERS 

CLR RO : CLR LO ORDER QUOTIENT REG 
CLR : CLR HI ORDER QUOTIENT REG 
MOV (R3) ,R2 ; GET DIVISOR 

MOV 1(R4),R5 : GET HI ORDER DIVIDENT 
BNE $ : DIVISOR NOT = 0 

MOV - (R4),R5 : GET LO ORDER DIVIDENT 
CMP R5,Re : IS DIVIDENT < DIVISOR ? 
BCC 20$ ; NO, CONTINUE 

BR 30$ ; YES, ore 

CALL DSUB . : SYNTHESIZE DIVIDE 

ADD #1,R0 : INCR LO ORDER QUOTIENT 
BCC 10$ : DID NOT OVERFLOW 

INC R1 : ADJUST HI ORDER QUOTIENT 
BR 10$ 

MOV (R4),R5 ; GET REMAINDER 

MOV RO, (R4) : LOAD LO ORDER QUOTIENT 
MOV R1,1(R4) : LOAD HI ORDER QUOTIENT 
MOV R5,(R3) ; LOAD REMAINDER 

POP R5,R2,R1,RO0 : RESTORE REGISTERS 

RE TURN 


SEQ 0029 


2 

3 

4 

S 

6 

7 

- 

+ 

10 
4 

1% 
14 001626 
15 001627 
16 001630 
17 001631 
18 001633 
19 001635 
20 001636 
31 0016 5/7 
22 001640 
23 001641 
24 001643 
25 001644 
26 001645 
27 001646 
28 001650 
29 001651 
30 001652 
31 001653 
32 001654 
33 001655 
34 001656 
35 001657 
%6 001660 
37 001661 


041644 
001637 


ee. are 


000001 
000001 


000000 


077777 


The Se Be Ba Be Se Be Be Be Be Se Be Be 


DCMP4: 


DCMP2: 


DCMP1: 


DCMP3: 


— nal 


ee 
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MATH SUBROUTINES 


DOUBLE COMPARE 
INPUT PARAMETERS 
R3 CONTAINS A POINTER TO THE FIRST OPERAND 

R4 CONATINS A POINTER TO THE SECOND OPERAND 

OUTPUT PARAMETERS 

THE FLAGS ARE SET AS IF A SINGLE PRECISSION ‘'CMP’’ HAD OCCURED 
MOV RO,-(SP) 
MOV R1,-(SP) 


“DO ACTUAL HIGH ORDER TEST 


BEQ DC ;GO DO ADDITIONAL TESTING 
BCC DCMP2 7SRC HI, CLEAN UP AND RIN 
MOV (SP)+,R1 RESTORE R1 
MOV (SP)+,RO ;RESTORE RO 
#0,R4 7SET CONDITION CODES - SRC LSS 
RETURN ; AND RETURN 
MOV (SP)+,R1 ;RESTORE R1 
MOV (SP) +,RO RESTORE RO 
CMP #077777 ,R4 ;SET CONDITION CODES - DST LSS 
RETURN ;AND RETURN 
CMP (R3) ,R1 : TEST LOW ORDER 
BNE DCMP3 ;BRANCH IF NOT EQUAL 
MOV (SP)+,R1 RESTORE R1 
MOV (SP)+,RO sRESTORE RO 
CMP R4,R4 ;SET CONDITION CODES - EQUAL 
RETURN ;AND RETURN 
(R3),R1 ; COMPARE AGAIN 
BCC DCMP2 ;8RANCH ON SRC HI 
BR DCMP4 


:BRANCH ON SRC LOW 


an -—— 


SEQ 0030 


i 
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SSS88S88888888S888Ss8sSsssssss 
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Ooo 
ee ee ee el ee ee ee ed ed ed = 3 = 3 SS I 3 = 3 3 
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104203 
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000741 
001030 
000002 
177420 
001027 


001030 
000001 


000001 
000040 
000001 


000004 
000002 


001020 
000003 
000001 
000001 
000020 


002000 


001000 


001220 
001220 


—_—— — 


Ss Be Be Be Se Be Be Be Be 


GSTATS: 
STATST: 


STSK1: 


SRCK: 
STFORM: 
STDIAG: 


STWiK: 


; p 
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SBI SUBROUTINES 


-SBTTL SDI SUBROUTINES 


GET STATUS 
OUTPUT PARAMETERS 


CLEARS DRIVE STATUS AND GETS CHARACTERISTICS 
IF NOT ALREADY RECEIVED 


PUSH R3 PUSH R3 

PUSH R5 ;PUSH R5 

MOV ACR.GST,R3 ;POINT TO GET STATUS TABLE 
CALL TALK ;GET STATUS 

MOV ASTRO ;POINT TO SUBUNIT CHARACTERISTICS 
MOV ST.ERB(RO) .R3 ;GET ERROR BYTE 

BIC #ST.DF+HIBYTE,R3 ;CLEAR HIGH BYTE AND DF BIT 
TST R5 ANY NEED TO ISSUE DRIVE CLEAR ? 
BEQ STSK1 ;NOPE - SKIP IT 

MOV R3,DCLR+1 ;STORE MASK IN DRIVE CLR COMMAND 
CALL CLEAR :DO0 A DRIVE CLEAR 

MOV AST ,R5 sPOINT TO STATUS BLOCK 

ADD #1,R5 ;POINT TO 2ND WORD 

MOV (R5)+,R5 ;GET FIRST WORD OF STATUS 
MCV 1,R2 ;ERROR SUBCODE IN CASE 

BIT AST.DR,RS :I1S DRIVE IN DIAGNOSTIC MODE 
BNE STPNIC :YES, WE LOSE 

INC Re ;ERROR SUBCODE 2 

BIT AST.RU,R3 31S RUN STOP SWITCH OUT 

BEQ STPNIC :YES, LOSE AGAIN 

MOV #4 ,R2 ; SUBCODE 

BIT AST.PS,R3 ;PORT SWITCH OUT ? 

BEQ STPNIC :YES ~ DIE PAINFULLY 

MOV R3,R2 :GET STATUS MODE BYTE 

SWAB Re :SWITCH WRITE PROTECT TO LOW BYTE 
BIT GSR+1,R2 ;WRITE PROTECTED ? 

BEQ SRCK ;1F NOT CHECK IF SPINNING 
MOV #3,R2 > IN CASE IT*S FATAL 

BIT #WP FLAG ;BEEN HERE ONCE ? 

BNE STPNIC ;YUP - GIVE UP 

BIS #WP FLAG) ;SET BEEN HERE FLAG 

CALL ACCESS ;TRY TO RESET IT 

BR STATST :AND SEE IF IT WORKED 

BIT #ST.SR,R5 :1S PACK SPINNING? 

BNE STFORM :YES, TEST FOR FORMAT ENABLE 
CALL LOAD :NO, SPIN PACK 

JMP STATST ;SEE IF ANYTHING CHANGED 

BIT AST.FO,R5 ;1S FORMATTING ENABLED? 

BNE STDIAG :YES, TEST FOR DIAG ACCESS 
CALL ACCESS :NO, SET UP DIAG/FORM ACCESS 
JMP STATST :SEE IF ANYTHING CHANGED 

BIT #ST.DB,R3 :I1S DIAG CYL ACCESS ALLOWED 
BNE STWLK :YES, CHECK FOR ERRORS 

CALL ACCESS :NO, SET UP DIAG/FORM ACCESS 
JMP STATST 7SEE IF ANYTHING CHANGED 

MOV (R5) .R3 :GET SECOND STATUS WORD 


s-- eee CE LL EL LOLA L OC LA LL A 


SFQ 0031 


eae EE EE LL LL CO 


o — en 


102202 


101200 


————— « 


1 114001 
72 002012 000000 
73 002013 1042C1 

15 022552 


000010 - 


010000 001217 
000745 
000751 
010000 001217 


000001 


CHAR: 


STSKP: 


STONIC: 
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AST.WE,R3 
4R 


ACHRDNE FLAG 
wR. GCR,R3 
eer. GSR,R3 
#CHRDNE . FLAG 


ANY WRITE ENABLE ERRORS 

=NO, GET CHARACTERISTICS 

:TRY ENABLING LOGICAL WRITE 

[AND CHECK WORLD AGAIN 

= CHARCTERISTICS ALREADY RECEIVED 
:YUP = NO NEED TO GET AGAIN 
[POINT TO GET CHAR CMD TABLE 
:GET CHARACTERISTICS 

:GET $ SUBUNIT CHARACTERISTICS 


THEM 
:SET CHAR - BIT 


sRESTORE R 

SRESTORE R3 

;CLEAR ERROR INDICATOR 
:RETURN TO CALLER 

; INDICATE STATUS FAILURE 
:SEND ERROR MSG AND QUIT 


5 


SEQ 0052 


umesee A A A: 


em a ee _ 
— oe. 


MATA FILE F 
SOL SUBROUTINE 


OR 


, 

2 

b) 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 002016 
14 002017 
15 002020 
16 002022 
17 002023 
18 002024 
19 002026 
20 002027 
21 002050 
22 002031 
23 002035 
24 002035 
25 002036 
26 002041 
27 002042 
28 002044 
29 002045 
30 002046 
31 002050 
32 002051 
33 002052 
34 002055 
35 002055 
36 Beso 2p 
37 002060 
38 002062 
39 002063 
40 002065 
41 002067 
rh 002070 
43 002073 
44 002074 
45 002076 
46 002077 
47 002100 
48 i 101 
49 002102 
50 002105 
51 in th: 
26 002107 
5 pete 
54 002114 
55 002115 
6 is SBN 

? 002122 


—-—=- O— 
2s athe 
5 le ee 
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000001 


000740 


000716 
000002 


100000 
000716 


000740 


000715 
000004 


000175 


000715 
000003 


100000 
000715 


100000 


100000 
001216 


007216 
001502 


Acti UDA DISK D MACRO X04 


001217 


001217 


001217 
001217 


000716 


Se Be Be Be Be Be Be 


TALK: 
LOOP? : 


MSG1: 


LOOP2: 


TALKDN: 


TALKRT: 


TALKP: 


ERRT: 


TCLEAR: 


TALKIP: 
TALIP1: 


H 3 
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TALK ROUTINE 
INPUT PARAMETERS 


R2 CONTAINS UNIT NUMBER CODE 


R3 CONTAINS A POINTER TO A COMMAND/RESPONSE ADDRESS/SIZE TABLE 


OUTPUT PARAMETERS 


PUSH R3 

PUSH R 

MOV 1(SP) .R3 
OV (R3)+,RC 

MOV (R3)+,R1 

MOV UNIT,R 
KFC SEND 

TST R1 

BEQ MSG1 


R LEAR 
BIT ARTY, FLAG 
E LOOP 
LR UN.E 
MOV (R3)+,R1 
V (R3) ,RO 

MOV UNIT ,Re 
XFC RCV 

TST R1 
BEQ TALKDN 
INC UN.ERR 
MOV #4,R1 
BR TCLEAR 
CMP AUNSEC RO 
BNE TALKRT 
INC UN. ERR 
MOV #3,R1 
BR TCLEAR 
BIT ARTY .FLAG 
BNE TALKP 

CLR UN. ERR 
POP R4 

POP R3 

RE TURN 

CLR Re 

CALL ERRMNT 
BIT ARTY, FLAG 
BNE TALKIP 


BIS ARTY, FLAG 
a SP,STCKSV 


TALIP1 
MOV STCKSV, SP 
CMP RETRY,UN.ERT 
BM] ERRT 





:RESTORE R3 FOR RETRIES 
-GET 


; COMMAND ADDRESS 

:GET COMMAND SIZE 

-MAKE SURE HAVE INTERCONNECT 
:SEND GET STATUS COMMAND 
er ge Ae 


; . BRANCH 

; INCREMENT ERROR COUNT 
;ERROR NUMBER IN CASE 

7DO RECOVERY 

:IN A RETRY ? 

7YES - DON'T CLEAR COUNTER 
;FOR RESET 

;POINT TO RCV BUFFER 

;SET SIZE OF REPLY 

:MAKE SURE HAVE INTERCONNECT 
:RCV REPLY TO GET STATUS 

; SUCESSFUL? 

:YES, CHECK STATUS 

; INCREMENT ERROR COUNT 
;ERROR CODE IN CASE 

;DO RECOVERY 

:WAS CMD UNSUCESSFUL? 


3 YES, DONE 

: INCREMENT ERROR COUNT 
sERROR CODE IN CASE 
sNO, TRY AGAIN 

IN A RETRY ? 

:YUP = SKIP CLEAR 
:CLEAR FOR REST 
sRESTORE R4 

*RESTORE R35 


;CLEAR SUBCODE 
;ERROR EXIT 
:IN A RETRY 


SEQ 0053 


“5 
:YUP - SKIP FLAG SET AND STACK SAVE 


:SET FLAG 

:SAVE STACK POINTER 
-SKIP RETRY HANDLING 
>RESTORE STACK POINTER 
:DONE RETRIES ? 

>YUP - CAN IT 
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=n 
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001502 
000740 


000001 
000024 


100000 


001001 


000717 
000761 


000001 
000740 
000717 
001502 
000717 


000740 


000003 


000715 


001217 


000717 


TERR: 


TATINI: 
RECAL : 


LOAD: 


LOAD1: 
LOADS: 


LOAD2: 
LOAD3: 


LOAD4: 


LOADER: 


CMP RETRY ,UN.ERR 
BM! RRT 

MOV UNIT ,R2 
KFC DINIT 

CALL STATVL 

BNE TERR 

CALL TIMER 

CALL TIMER 

CALL STATVL 

BNE TERR 

BIT ARCVRDY ,R1 
BNE TATINI 

MOV #20.,R1 
CLR R2 

CALL ERRMNT 
CALL GSTATS 
BIC ARTY,FLAG 
BR LOOP 1 
RECAL ROUTINE 

MOV R3.-(SP) 
MOV ACR.RCL,R3 
JMP LOADS 


LOAD ROUTINE 


RE TURN 
MOV 


R3,~(SP) 
UN.ERI 
A#CR.RUN,R3 
R4 

(R3) ,RO 
1(R3) ,R1 
UNIT ,R2 
SEND 


R1 
LOAD2 


UN. ERI 
RETRY ,UN.ERI 
LOADER 


R4 
(SP)+,R3 
#3,R) 


SEQ 0054 


Soy THE LIMIT ? 


;GET UNIT 

: INIT THE DRIVE 

7TST DRIVER STATUS VALIDITY 
:IF NOT ZE GOOD 


RO - 
WAIT ANOTHER 2 SECONDS 
>TO MAKE SURE DRIVER HAS ENOUGH TIME 
;GET VALID STATUS AGAIN 
:1F NO GOOD - ERROR 
31S RECEIVER READY SET 
SYES - Ail Sr 
; CLEAR SUBCODE 
:DIE PEACEFULLY 
:GET STATUS AND CLEAR ERRORS 


:CLEAR RETRY FLAG 
;AND TRY AGAIN 


:SAVE R3 
:POINT TO RECAL TABLE 
>SEND CMD VIA LOAD ROUTINE 


: SAVE R3 

sFOR INIT 

>POINT TO LOAD DRIVE TABLE 
:SAVE R4 

:GETCOMMAND ADDRESS 

:GET COMMAND SIZE 

;GET INTERCONNECT 

> ISSUE GET STATUS COMMAND 
:SUCCESSFUL ? 

:YUP = SKIP RETRY 

: INC COUNT 

:DONE ALL RETIES ? 

>; YUP 

-FOR ERROR CLEAR 

:LONG TIMEOUT VALUE (SECONDS) 
:GET RECEIVE BUFFRE 

-GET BUFFER LENGTH 

-GET INTERCONNECT 

:RECEIVE SDI RESPONSE 
-SUCCESSFUL ? 

:YUP - SKIP RETRY 

:WAIT 1 SECOND 

:DECREMENT COUNTER 

-LOOP TILL DONE 

:- IF NOT DONE YET — THEN ERROR 
-RESTORE R4 

>RESTORE R3 

:RETURN TO CALLER 

sERROR CODE 





eee 


——ee ee ee 


' 


ee a ae ee 
LO 


115 002233 
116 002234 
117 

118 

119 

120 002235 
121 002236 
122 002240 
123 002241 
124 002242 
125 

126 

127 

128 002243 
129 002244 
130 002246 
131 0022467 
136 002250 
13 

134 

135 

136 002251 
137 002252 
138 002253 
139 Oo SSe9 
140 002257 
141 002260 
142 Op eses 
143 002265 
144 002264 
145 002266 
146 002267 
147 BSS >, 
148 00 13 
149 00227 
150 002274 
182 900077 
138 009300 
154 002301 
155 OS toe 
156 002304 
157 002305 
158 8 5 
159 ? 
160 002510 
162 000315 
i 
166 000391 
167 002323 
168 

150 

171 002324 


114002 
022552 


104203 
022016 
104263 


BADNOANSNDOSS 
-S2 


o-- o-oo - O - OO - Ce Se es 
-_ 
Rx 


vw 


SSSLNLS=88sszz8 
I Ot 
w— tw en and 


S 
® 
o 
AN 


000765 


000771 


000740 
000775 
001251 
000002 
100000 


000240 


000720 


000720 


001502 


177775 


000720 


7 
e 


ee — — 


CLR 
CALL 
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SD1 SUBROUTINES 


R2 
ERRMNT 


ACCESS ROUTINE 


ACCESS: MOV 


MOV 


R%,-(SP) 
ACR.ACC,R3 


CLEAR ROUTINE 


RS, -(5P) 


ACR.CLR,RS 
TALK 
(SP)+,R3 


SEEK ROUTINE 


R3,-(SP) 
RO, -(SP) 


UNIT ,R2 
ACR.SEK,R3 


(SP)+,R3 

INI TPT 

UN. SEK 

RETRY ,UN.SEK 
SEEKS 


UNLOAD ROUTINE 
DISCON: MOV 





R3,-(SP) 


:CLEAR SUBCODE 
DIE 


: SAVE R3 

:POINT TO ACCESS TABLE 
:SEND ACCESS CMD 
sRESTORE RS 

sRETURN TO CALLER 


sSAVE R3 | 
:POINT TO CLEAR TABLE 
>SEND CLEAR CMD 
:RESTORE R3 

-RETURN TO CALLER 


:SAVE R3 

: SAVE RO 

>MAKE SURE HAVE UNIT 
:POINT TO SEEK TABLE 

:SEND SEEK C 

: SHORT TIMEOUT 

>CHECK FOR STATUS VALIDITY 
: IF NOT ZERO - DIE 

> ANY PROBLEMS 

sYES, BRANCH 

>-NO, DONE? 

;ALL DONE 

:DECREMENT COUNTER 

: IF ZERO THEN DEAD 

> 1MS DELAY 

:DECREMENT COUNTER 

:DELAY LOOP 

> TRY AGAIN 

: CLEAR ERROR FLAG 

:FOR RESET 

-YES, RESTORE RO 

sRESTORE R3 

:RETURN TO CALLER 

: INIT THE DRIVE 

: INCREMENT RETRY COUNTER 
*HAVE WE DONE ALL RETRIES? 
: YES, PANIC 

:;PANIC AND ye GET STATUS 


: SAVE R3 


enc + en a LLL LD EE LO LLL 


SEQ 0055 


eee 


SSBLEAREAVLS SHIR ARAN 
© 


pH SS 2 SB PR PS HP BB tt 
0O0o 
wn 
WANNA Ww 
OultWw-OoOnvUw— 


PESOS BIOL OV 
SS8888S3S88383ssesss 
WESSSSES 


“S 


: 


-oO— 
™m 
noe 

MON 

AO 

WONG 


es 


000755 


001011 


000001 
000004 


066540 


000001 


000740 
066540 


000001 


000024 


ONL IN: 


INITIT: 


INITS: 


ATTN1: 


AOUT: 


INITPT: 


INITP1: 


INI TDD: 


—sajemeeectetiet idee itt ET OLE LEASE DELLA AAD — 


MOV 
CALL 
MOV 
RE TURN 


K 3 
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#CR.DIS,R5 


TALK 
(SP)+,R5 


ONLINE ROUTINE 


MOV 


R3.-(SP) 
#CR.ONL,R3 


TALK 
(SP)+,R3 


INITIALIZE ROUTINE 


MOV 
RETURN 


R1,-(SP) 


ATTN1 


INIT GIVEN PORT 


“pe she 
#28000. ,RO 
STATYL 

INI TDD 

RO 

INI TDD 
#RCVRDY.R1 
INITP1 
#20.,R1 

R2 

ERRMNT 


;DISCONNECT WITH 
UNLOAD CMD 


; SEND 
REST ORE R 


R3 
SRETURN TO CALLER 


s SAVE R3 
ONLINE COMMAND 
“BRING DRIVE ONLINE 


;REST 


; SAVE R1 


ORE R35 
sRETURN TO CALLER 


> SAVE _R3 AND R46 


:START WITH PORT 0 


- TIMER CAPPROX 2 SECS) 
;CHECK STATUS VALIDITY 
F NOT ZERO - NO GOOD 


“DEC COUN 

;1F ZERO THEN DEAD 

31S RECECIVER READY SET ? 
:NO, TRY AGAIN 


;NEXT PORT 


;DECREMENT COUNTER 
; IF NOT DONE DO + gi PORT 


: RESTORE “ AND R 


;RESTOR 


ER 
; AND RETURN TO CALLER 


;GET PORT NUMBER 


sVALIDATE STATUS 

SDEAD IF NOT VALID 
:DECREMETN COU 
:DEAD IF COUNT EXPIRED 


:DONE INIT ? 


“NOPE - KEEP TRYING 


sEXIT 

> ERROR CODE 
*NO SUBCODE 
- ERROR EXIT 


OUTNER 


SEQ 0056 


A 


! 
DATA FILE FOR PDP=11 UDA 
OVERLAY PROCESSING ROUT! 


-_—-- 


, 
e 

3 

4 

5 

6 

7 

8 002412 
9 002414 
10 002415 
11 002417 
12 002420 
13 002421 
14 002422 
15 002424 
16 002425 
17 002426 
18 002431 
19 002432 
20 434 


oO -OoO--— 
— 
SRSVESE 


S 
es 


— 


400 
417 


o-— Pe 

mooo 

Naame eae 
aad 


DISK 
NES 


001341 
003047 
000715 


001502 
000715 


000005 
000020 001220 


000715 


ana -_— - ee 


a2: Be Be Be Be Be 


EXT: 


NEXT5S: 


OERR: 


OERR2: 


seesseseceeeea A ELLE CCL LL LLL LLL A 


= 
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.SBTTL OVERLAY PROCESSING ROUTINES 


OVERLAY PROCESSING ROUTINES 
R1 = OFFSET INTO TABLE 


NEXT CALLS OVERLAY FOR NEXT CODE OVERLAY 


MOV MOVLTBL ,R4 3GET POINTER TO OVERLAY TABLE 
ADD R1,R4 : INDEX INTO TABLE 

MOV ASTART .R3 [UDA ADDRESS TO LOAD AT 

CALL OVRLAY ; CALL ic TO ,P0 OVERLAY 


TST RO ; CHECKSUM O.K 
BNE OERR ‘YES - RETRY IF * POSSIBLE 
CLR UN.ERR =CLEAR ERROR COUNT 
POP R1 :POP CURRENT es ADDRESS 
BR START :GQ TO OVERLAY 
CMP RETRY,UN.ERR ; DONE ALL RETRIES ? 
BEQ OERR2 YUP 
INC UN.ERR ; INC ERROR AND 
NEXT5 


TRY AGAIN 

“GET ERROR CODE FROM XFC 
MOV #5,R1 :SET UNIBUS READ ERROR 
BIS #DEAD , FLAG! ; INDICATE HOST GONE 

CALL ERRMNT :ERROR RETURN | 


no, 


SEQ 0057 
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OVERLAY PROCESSING ROUTINES 


' 





1 

2 

3 

4 

5 

6 

7 

8 

9 
10 SP 
11 002446 
1¢ 002447 
13 002451 
14 002452 
15 002454 
16 002455 
17 002456 
18 002457 
19 002460 
20 002461 
21 002463 
22 002465 
235 002466 
24 002470 
25 002471 
26 
e7 
28 002472 
29 002475 
30 002475 
31 002477 
32 002500 
33 Og one 
34 00250 
35 002504 
36 002505 
37 002506 
38 0025U7 
‘39 Os219 
40 002515 
41 Bosei¢ 
+ 002516 
4 posets 
44 002522 
45 002525 
46 002525 


o--—— —O—- © oo-o-----— 
-oO0--— SSuc=noCoO 
rornonrvTo lw 

WIMION) SUWO UIUIMO VIVWONO 

Wie >= gage o-OOnN°o-oO— 

™ MONNAWSE SO 


mw 
Nm 
mr 


001153 
001341 
003047 


000715 
002472 


003047 


001153 
001341 


003047 


001502 
000715 
000020 
000005 


000715 


001220 


Behn) Se Be Bo Be Se Be Be Be 


AGE : 


PALP1: 


PALP2: 


PASER: 


PALP4: 


PALP3: 


PAERR: 


PAERR1: 


PAGE BRINGS IN AN OVERLAY AND CALLS IT 
UPON RETURN OF THE OVERLAY PAGE BRINGS IN 
THE PREVIOUS OVERLAY AND BEGINS EXECUTION 
AT THE POINT THE CALL TO PAGE WAS MADE 


R1 = OVERLAY TO BE BROUGHT IN 


GET ‘‘CALLING'' OVERLAY 

3PUSH FOR LATER RETURN 

7POINT TO OVERLAY TABLE 

:POINT TO ENTRY FOR NEW OVERLAY 
3POINT TO UDA LOAD ADDRESS 
;BRING IN NEW OVERLAY 


MOV wh. 2 
MOV -+ 9g gare 


R1,R 
MOV ASTART R35 
CALL OVRLAY 


TST RO SEDC O.A. 7 

BEQ PALP2 ; YUP 

CALL PAERR ;CALL ERROR HANDLER 
BR PALP1 ;TRY AGAIN 


;CLEAR ERROR COUNT 

;ADDRESS FOR OVERLAY TO RETURN 70 
;PUSH ON STACK 

: STARTING ADDRESS OF ee OVERLAY 


UN.ERR 
MOV #PAGER ,R3 
MOV R3,-(SP) 
MOV ASTART ,R3 


V RS ,*(SP) ;PUSH ON STACK FOR ‘'C 
RETURN :‘"CALL'* OVERLAY 
;NEXT ADDRESS ON STACK IS RETURN 
zsADDRESS TO PAGE 
POP R1 :POP OLD OVERLAY NUMBER 


MOV R1, CUROVL 

MOV #OVLTBL ,R4 
ADD R1,R4 

MOV #START R53 


“MAKE IT CURRENT 

:POINT TO OVERLAY TABLE 
_ POINT TO OLD OVERLAY BLOCK 
1 [POINT TO UDA LOAD ADDRESS 


CALL OVRLAY :BRING IT IN 

TST RO SEOC.O.K. ? 

BEQ PALP3 ; YUP 

CALL PAERR ;ERROR HANDLER 

BR PALP4 :TRY AGAIN 

RETURN :RETURN TO ADDRESS PAGE CALLED FROM 


CMP RETRY ,UN.ERR 
BEQ PAERR1 
INC UN.ERR 


: DONE ALL RETRIES ? 
“INC ERROR COUNT 


RETURN ;RETURN AND TRY AGAIN 
BIS A#DEAD ,FLAG1 ;SET HOST GONE 

CLR R2 ;NO SUBCODE | 
MOV #5 ,R1 ) ;UNIBUS READ ERROR 
CALL ERRMNT :DIE 


a 


SEQ 0038 


me A A lt A i A OLE A LLL LL LOA LL LAL 
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OVERLAY PROCESSING ROUTINES 


1 - 

2 - 

3 5 OVERLAY ROUTINE , 

4 : ISSUES UNIBUS READ TO GET OVERLAY 

5 $ R3 -> UDA ADDRESS TO LOAD 

6 : 

7 002526 104647 000001 OVRLAY: MOV HSTLO(R4) RO :LOW ORDER UNIBUS ADDRESS 
8 805836 104641 000002, MOV HSTHI(R4) ,R1 :HI ORDER UNIBUS ADDRESS 
9 002532 104642 000000 MOV LEN(R4S) ,R2 :WORD COUNT TO OVERLAY . 
10 002534 060013 XFC UREAD : ISSUE UNIBUS READ 

11 002535 000000 RE TURN >RETURN TO CALLING ROUTINE 





owe | 
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OUS COMMON ROUTINES 


rr 

rw" 

z- 
r 
m 


.SBTTL MISCELANEOUS COMMON ROU INES 


S8s8sssss 
MoMonononononongnononontV 
PPA SIGIVIVIJIVIVAIA 


Oo 
a 


NO NUW—Ourv 


ONNNNNOOOOWUnU 
NU 


Sosooes 


Oo 
oO 
ror 
oO 
oO 
m 


42 002611 
43 
44 
45 
46 002612 
47 14 


54 002626 


104207 
104201 
060016 


104207 
Wesus 


06001 
000000 


ror 

MmMMNo 
NONNOCOO 
MmMnN—™N 


—]-OO000UrO 
& 


RSRSES 
ee ee 
NO™NO 
lh aed ml eon 


—OoO—-—- O00 - SS SS SS SS OS S - OO 
MW 


——O— NO 


© 

oO 

OvVINIM HMMS 
REose 


001263 
000016 


001263 
000016 


000010 
000010 


000003 


000004 
001324 


001325 
000001 


000020 


001505 


001505 
001005 


001220 
001220 


001220 


001103 


SNDMNT : 


ERRMNT : 


ALLOVR: 


ALLOV1: 


ERRHND : 


ERRLST: 


SEND MAINTENANCE READ COMMAND 


MOV #DMBUF ,RO 

MOV #DMBUFL ,R1 

XFC MAINTR 
TURN 


RECEIVE MAINTENANCE WRITE DATA 
: MOV ADMBUF ,RO 


MOV #DMBUFL .R1 
XFC MAINTW 


ERROR RETURN TO HOST 


BIT py FLAG) 
BN R 


LLOV 
~=BIS HERON, FLAG] 
| #DMBUF ,RO 


MOV R1,2(RO) 
MOV R2,3(RO) 


CALL SI 
CALL DISCON 
CLR 0 


R 
BIT ADEAD,FLAG1 
BEQ ALLOV1 
INC RO 
XFC DONE 


ERROR RETRY SEQUENCER 
TST RECTMP 

ERRLST 
MOV RECTMP ,ERECOV+1 


MOV #CR.ERV,R5 
TALK 


sPOINT TO BUFFER 
;LENGTH 
: ISSUE COMMAND 


;POINT TO BUFFER 


IZE OF BUFFER 


sRECEIVE MAINT WRITE DATA 


;TRIED TO QUIT YET ? 

:YUP - DISCON FAILED 

=SET FLAG 

:POINT TO MAINT BUFFER 
:PUT ERROR NUMBER IN MSG 
=PUT IN ERROR SUBCODE 
:CLEAR *** TEMP *** 

“ONLY ONE WORD RIGHT NOW *** 
;GET DUP CODE 

:STORE IT 

;GET ‘E * IDENTIFIER 
:STORE IT 

:SEND TO HOST 
=DISCONNECT/SPINDOWN DRIVE 
: IN CASE 0.K 

:DIE OR JUST QUIT ? 

;JUST QUIT 


:MAKE iWON ZERO 
sEXIT DM MODE 


RECOVERY LEVEL 0 ? 

YES - DO LAST DITCH EFFORT 
>STORE LEVEL IN COMMAND 
:POIT TO COMMAND 
cRETUR oe RECOVERY 


TURN 
;DO A RECALIBRATE 
=RESEEK 


rns 


SEQ 0040 
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MISCELANEOUS COMMON ROUTINES 


1 $ 
2 2 
3 : COMPUTE EDC 
2 : R2 -> BUFFER 
6 002627 CEDC: PUSH R2.R4,R5 
7 002632 104303 001246 MOV INI .R3 : INITIAL VALUE (69) 
R 002634 104305 001247 MOV CNT,R5 “SECTOR SIZE (258) 
9 002636 104224 EAGAIN: MOV (R2)+,R4 =MOVE A WORD INTO R4 
10 002637 XOR R4,R3 :>XOR INTO EDC 
11 002643 105203 000000 ADD #0.R3 CLEAR CARRY 
12 002645 110203 ROL R3 CIRCLE LEFT 
13 002646 042650 BCC NOCRY : IF NO CARRY SKIP 
14 002647 115403 INC R3 = INCREMENT IF CARRY 
15 99650 117405 NOCRY: DEC R5 *DECREMENT COUNTER 
16 002651 052636 BNE EAGAIN *IF NOT 0 DO NEXT WORD 
17 002652 POP R5.R4,R2 
18 002655 000000 RETURN :R3 = EDC 
$$ ; ONE SECOND DELAY ROUTINE 
24 : 
25 002656 TIMER: PUSH R3 SAVE R3 ‘ 
26 002657 104203 100000 MOV ATIMVAL ,R3 -LOOP COUNTER (32768) 
27 002661 104011 TIMLP: MOV R1,R1 | - DELAY 
28 002662 104011 MOV R1,R1 : DELAY 
29 002663 104011 MOV R1,R1 : DELAY 
30 002664 104011 MOV R1,R1 DELA 
31 002665 117403 DEC R3 S OECRMENT COUNTER © 
32 002666 052661 BNE TIMLP “LOOP TILL DONE 
33 002667 POP R3 } -RESTORE R3 
$e 002670 000000 RETURN | >RETUR TO CALLER 
i$ : 
% ; VALIDATE XFC STATUS RESPONSE 
40 : 
41 002671 STATVL: PUSH R5 : SAVE R5 
+e 002672 104205 077777 MOV #77777, R5 -COUNTER (1 SECOND) 
43 002674 060007 STATRE: XFC STATUS : “GET DRIVE STATUS 
44 002675 117405 DEC R5 - INCREMENT COUNTER 
45 002676 012710 BEQ STATFR  sJF ZERO - NO GOOD 
002677 102201 000004 BIT AVLD,R1 -LOW VALID BIT GOOD ? 
47 002701 012674 BEQ STATRE -NO - RETRY : : 
48 002702 102201 000400 BIT #PARIT1,R1 -PARITY ERROR ? 
49 704 052674 BNE STATRE -YES - RETRY 
50 002705 POP R5 3 *RESTORE R5 
51 002706 106011 CMP R1,R1 :SET COND CODE EQ ZERO 
3¢ 002707 000000 STATRT: RETURN RETURN 
53 002710 STATFR: POP R5 “REST ORE RS 
54 002711 106201 177777 CMP #177777, R1 =MAKE a sure NOT EQUAL 
§§ 002713 002707 BR STATRT >RETUR 


—< " — ek we eee ee ee i i a iE A TLL LLL LLL LL LL LE LLL LL re eee ee 
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-MISCELANEOUS COMMON ROUTINES 


1 ‘ 
2 : CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
2 s R4 -> BLOCK NUMBER 
§ 002714 104207 001430 CVTSK: MOV #CONBLK,RO :POINT AT CONVERT BLOCK 
6 002716 104641 000001 MOV 1(R4) ,R1 :GET HIGH ORDER 
7 002720 100671 000003 MOV R1,v2+1(RO) STORE IT 
8 002722 104143 : MOV (R4) ,R3 :GET LOW ORDER 
9 0027 100673 000002 MOV R3,V2(RO) TORE IT 
10 002725 104201 001052 MOV ASCR,R1 “POINT TO SUBUNIT CHARACTERISTICS 
11 002727 060020 KFC CVT | >CONVERT IT 
6 002730 104670 000011 001112 MOV TRK (RO) , CURTRK -GET TRACK NUMBER 
13 002733 104670 006 001076 MOV CYL(RO) , ISEEK+1 :LOW ORDER XYLINDER 
14 002736 104670 000007 001077 MOV CYL+1(RO), ISEEK+2 “HIGH ORDER CYLINDR 
1§ 002741 104670 000010 001100 MOV GRP(RO), ISEEK+3 -GROUP NUMBER 
16 002744 022251 CALL SEEK :DO SEEK 
17 002745 115001 TST R1 :ANY ERROR ? 
18 002746 052750 BNE CVTERR > YUP ERRGR 
19 002747 000000 RETURN 
20 002750 104201 9000012 CVTERR: MOV #10..R1 : SEEK ERROR 
21 002752 104207 001430 MOV #CONBLK RO :CONVERT BLOCK 
22 002754 104672 900006 | MOV CYL(RO) ,R2 -CYLINDER FAILED ON 
235 002756 022552 CALL ERRMNT -ERROR RETURN 


ann 
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001151 
000001 001152 
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MISCELANEOUS COMMON ROUTINES 


COMPUTE PRIMARY RBN FOR GIVEN L®N 
RO -> CHARACTERISTICS BLOCK 
RBN = (QUO(CURBN-STLBN) /LBNTRK) *RBNTRK 


MOV (R46), TEMP ;GET LOW ORDER LBN 

MOV 1(R4) ,R2 ;GET HIGH ORDER 

MOV ATEMP,R4 ;FOR SUBTRACT 

SUB ST.LBN,R2 ;D0 SUBTRACT 

MOV R2,1(R4) ;STORE BACK 

MOV LBNTRK (RO) ,R3 ;GET LBN/TRACK P 
BIC #HIBYTE,R3 ;CLEAR HIGH BYTE 

MOV R3,DDUMMY ;STORE FOR COMPUTATION 


sFOR DIVIDE 


“GET RBN/TRACK 
“CLEAR GARBAGE 
“FOR COMPUTATION 


DDIV 
MOV RBNTRK (RO) ,R3 
BIC #HIIBYTE,RS 


CLR DDUMMY +1 ;CLEAR HIGH ORDER 
MOV ADDUMMY ,R3 ;FOR MULTIPLY 
CALL DMUL 

MOV (R4) ,REVRBN :GET LOW ORDER 
MOV 1(R4) ,REVRBN+1 :STORE HIGH ORDER 
POP Re 

RETURN 


inthe 


SEQ 0043 
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MiSCELANEOUS COMMON ROUTINES 


1 : 

Pa e ° 

: COMPUTE ECC SYMBOLS IN ERROR 

5 Z 

é rate 104202 001037 FOCCK: MOV #CR,R2 >POINT TO CHARACTERISTICS 
7 003031 104623 000002 MOV ERRSYM(R2) .R3 >GET THRESHOLD 

8 003033 103203 177400 BIC MHIBYTE RS =CLAR HIGH GARBAGE 

9 003035 104207 000721 MOY ARDBLK RO :POINT TO COMMAND BLOCK 
10 003037 060015 xF C ECC -PERFORM ECC CORRECTION 
11 003040 115001 1ST R1 >SUCCESSFUL ? 
1§ 003041 053044 BNE 105$ = NOPE 
1 anes 106073 CMP RO,R3 “WITHIN BOUNDS ? 
14 003043 073046 BM] GDECC >YES CONSIDER GOOD 

15 0030464 104201 177777 1053: MOV #-1,R1 >ELSE SIGNAL BAD 
16 003046 060000 GDECC: RETURN RETURN 


——E an - 
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LSCELANEOUS COMMON ROUTINES 


} 6003047 003067 START: JMP START3 >SKIP LOCAL DATA STORAGE 
; 2 
§ 003050 DESC: -BLKW 4 sHOST BUFFER DESCRIPTOR 
6 003054 010000 DMSG1: .WORD 10000 >TYPE AND SEQUENCE NUMBER 
7 003055 123 040 aS ie =START UP 
8 003056 125 120 040 -ASCIZ ‘UP YOURS' “MESSAGE ZERO 
003057 131 117 125 
003061 122 123 000 
+5 000007 DMSGIL = .-DMSG1 :LENGTH OF MESSAGE ZERO 
17 E 
12 003063 104206 001215 START3: MOV ASTACK,SP :SET UP STACK 
13 003065 104207 003054 MOV #DMSG1,RO MESSAGE 
14 003067 104201 000007 MOV #DMSGIL, R1- :LENGTH 
15 003071 060016 KFC MAINTR > SEND MESSAGE 
16 003072 104207 001263 MOV ADMBUF ,RO : ADDRESS OF BUFFER 
17 003074 104201 000016 MOV ADMBUFL R11 -LENGTH OF BUFFER 
18 003076 060017 KFC MAINTW :GET ANSWER 
19 003077 023103 CALL SETOVL :SET UP OVERLAY ADDRESSES 
20 003100 104201 000060 MOV #G1,R1 “NEXT OVERLAY 
21 003102 O224i2 CALL NEXT “BRING IT IN 


Eo en - 


ees 
; 
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“MISCELANEOUS COMMON ROUTINES 


1 5 

¢ ; SET UP OVERLAY TABLE 

4 003103 104205 000021 SE TOVL: MOV MOVCNT,RS :GET COUNT OF OVERLAYS 

§ 093105 104204 007774 MOV ADUPOVL ,R4 =POINT TO OVERLAY ADDRESS (2 WORDS) 

6 003107 104200 005472 000731 MOV #0VS.G1,DDUMMY “RELATIVE START OF FIRSTOVERLAY 

7 003112 114000 0600732 CLR DDUMMY +71 :CLEAR HIGH ORDER 

& BE, 104203 000731 MOV ADDUMMY ,R3 -FOR SUB 

9 003116 021524 CALL DSUB =GET OFFSET (MUST ADD TO RELATIVE START ADDRESS OF E 
10 003117 104043 MOV R4,R3 =CHANGE POINTER FOR ADDS 
11 0035120 104204 001342 MOV #OVLTBL+HSTLO,R4 =POINT TO LOW HOST ADD OF FIRST ENTRY 
1 3155 021506 SLOOP: CALL DADD “ADD OFFSET 
13 003123 105204 000003 ADD MOVLEN,RS -POINT TO LOW HOST ADD. OF NEXT ENTRY 
14 003125 117405 DEC RS =DECREMENT COUNTER 
15 003126 053122 BNE SLOOP : IF NON-ZERO THEN CONTINUE 
16 003127 O000C0 RE TURN “ELSE DONE 
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ZATION OVERLAY 

.SBTTL INITIALIZATION OVERLAY 

: INITIALIZATION OVERLAY 
003130 DMOVLY G1,START 
003047 024430 CALL INITL s INITIALIZE DISK 
003056 115001 TST R1 :ANY ERRORS ? 
003051 05 ‘ BNE BUMER :YUP = QUIT 
003052 102200 000001 601217 BIT #FCTAVL FLAG sUSE RESIDENT FCT ? 
003055 053061 BNE OLBN >YES = ONLY DO LBN 
003056 104201 000000 MOV #F1,R1 -ELSE DO D/XBN FIRST 
003060 003063 BR XBN > SKIP LBN FLAGGING 
003061 104201 000003 DOLBN: MOV #F2,R1 :SIGNAL LBN FORMAT 
003063 022412 DXBN: CALL NEXT :BRING IN NEXT OVERLAY 
003064 104201 000006 BUMER: MOV #6,R1 :SIGNAL INIT 
003066 022552 CALL ERRMNT :ERROR RETURN 

: COMPUTE DiSK CONSTANTS FROM CHARACTERISTICS 

: COMPUTE TRACKS/CYLINDER 
003067 104207 001052 CONINT: MOV #SCR.RO :POINT TO SUB CHARACTERISTICS 
003071 104673 000003 V TRKGRP (RO) ,R2 *LOAD TRACKS/GROUP 
003073 103203 177400 BIC MHIBYTE, >CLEAR HIGH BYTE 
003075 104030 000731 MOV 23, DDUMMY :STORE IN DUMMY AREA 
003077 114000 000732 CLR DDUMMY +1 >CLEAR FOR STORE 
003101 104673 000002 MOV GRPCYL (RO) ,R3 -GET GROUPS/CYLINDER 
003103 103203 177400 BIC HHIBYTE,R *CLEAR HIGH BYT 
003105 104030 000736 MOV R3,TE STORE IN TEMP AREA 
003107 114000 000737 CLR TEMP +1 :CLEAR HIGH ORDER 
003111 104203 000731 MOV ADDUMMY ,R3 >SETR UP FOR MULT 
003113 104204 000736 MOV ATEMP,R4 :DIT 
003115 021542 | CALL DMUL >COMPUTE IT 
003116 104140 001141 MOV (R4),TRKCYL *LOAD FOR STORE 
003120 104640 000001 001142 MOV 1(R4), TRKCYL+1 :LOAD FOR STORE 

: COMPUTE LBN'S/CYLINDER 
003123 104673 000011 MOV LBNTRK (RO) ,R3 :GET LBN'S/TRACK 
003125 103203 177400 BIC #HIBYTE,R3 >CLEAR HIGH BYTE 
Oa16/ 104030 000736 MOV R3, TEMP :FOR MULT 
003131 114000 000737 CLR TEMP+1 >FOR STORE 
003133 104204 000736 MOV ATEMP,R4 >FOR MULTIPLY 
003135 104203 001141 MOv #TRKCYL.R3 DITTO 
003137 021542 CALL DMUL >GET LBN'S/CYL 
003140 104140 001145 MOV (R4),LBNPCY :GET LOW ORDER 
003142 104640 000001 001146 MOV 1(R4),LBNPCY+1 -GET HIGH ORDER 

; COMPUTE RBN'S/CYLINDER 
003145 104673 000004 MOV RBNTRK (RO) ,R3 GET RBN'S/TRACK 
003147 103203 177600 BIC #HIIBYTE,R -CLEAR OUT GARBAGE 
003151 104030 000736 MOV R3, TEMP -STORE FOR MULT 
003153 114000 000737 CLR TEMP+1 -FOR STORE 
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SEQ 0047 
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DATA FILE FOR PDP- SEQ 0048 
INITIALIZATION OVERLAY 
58 003155 104204 000756 MOV ATEMP RS >FOR MULTIPLY 
59 003157 104203 001141 MOV ATRKCYL,R3 DITTO 
60 003161 021542 CALL DMUL :GET RBN‘'S/CYL 
61 003162 104140 001147 MOV (R4) ,RBNPCY >GET LOW ORDER 
6s 093164 104640 000001 001150 MOV 1(R4) ,RBNPCY+1 :GET HIGH ORDER 
64 ; 
oo : COMPUTE LBN'S IN LBN AREA 
67 2 
68 003167 104207 001052 MOV #SCR,RO :POINT TO CHMDAC TEREST ICS 
69 003171 104670 000000 000756 MOV CYLBN(RO), TEMP -GET LBN CYLINDERS 
70 003174 673 000001 MOV CYLBN+1(RO) .R3 :GET HIGH ORDER 
71 003176 103203 170000 BIC #HD.CLR,R3 :CLEAR STARTING CYLINDER BITS 
72 0032 104030 000737 MOV R3, TEMP+1 : STORE IT 
73 003202 104204 000/736 MOV ATEMP,R4 -FOR MULT 
74 003204 104203 001145 MOV ALBNPCY .R3 : BOINT TO LBN'S/CYLINDER 
75 003206 021542 CALL DMUL :GET LBN'S IN LBN AREA 
6 003207 104140 001133 MOV (R4) ,LBNLBN -GET LOW ORDER 
77 0063211 104640 000001 001134 MOV 1(R4),LBNLBN+1 *GET HIGH 
78 003214 104670 000012 00073% MOV LBNHOST (RO) , DDUMMY -GET LBN'S IN HOST AREA 
79 003217 104670 000013 000732 MOV LBNHOST+1(RO) , DDUMMY +1 7GET HIGH ORDER 
BO 003222 104203 000731 MOV ADDUMMY ,R3 FOR SUB 
81 003224 021524 CALL DSUB * SUBTRACT TO GET LBN‘'S IN RCT 
B82 003225 104140 001475 MOV (R4) ,TOTRCT :GET LOW ORDER 
e 003227 104640 000001 001476 MOV 1(R4) , TOTRCT+1 -GET HIGH ORDER 
rH 2 COMPUTE RBN'S IN LBN AREA 
87 
88 003232 104207 001052 MOV #SCR,RO =POINT TO CHARACTERISTICS 
89 003234 104670 000000 000736 MOV CYLBN(RO) , TEMP :GET LBN CHANGERS 
90 0032 104673 000001 MOV CYLBN+1 (RO) ,R3 >GET HIGH ORDER 
91 003241 103203 170000 BIC #HD.CLR,R3 :CLEAR STARTING CYLINDER BITS 
92 003245 104030 000737 MOV R3,TEMP+1 =STORE IT 
93 003245 104204 000736 MOV ATEMP,R4 -FOR MULT 
003247 104203 001147 MOV ARBNPCY, -POINT TO RBN‘'S/CYLINDER 
95 003251 021542 CALL DMUL :GET LBN'S IN LBN AREA 
0032 104140 001135 MOV (R4) , RBNLBN -GET LOW ORDER 
4 003254 104640 000001 001136 MOV 1(R4) ,RBNLBN+1 :GET HIGH ORDER 
100 : COMPUTE SECTORS/TRACK 
101 003257 104673 000004 MOV RBNTRK (RO) ,R3 :LOAD RBN*S/TRACK 
102 003261 103203 177600 BIC #HI 1BYTE,R3 -CLEAR OUT GARBAGE 
103 003263 104674 000011 MOV LBNTRK (RO) ,R4 *LOAD LBN'S/TRACK (512) 
104 003265 103204 177400 BIC HHIBYTE,R4S >CLEAR OUT HIGH BYTE 
105 003267 105043 ADD R4,R3 “ADD FOR SECT/TRACK 
106 003270 104030 001127 MOV R3,SECTRK :STORE IT 
eS 003272 114000 001130 CLR SECTRK+1 -CLEAR FOR STORE 
54 : COMPUTE SECTORS/CYLINDER 
111 003274 104300 0011 000731 MOV SECTRK,DDUMMY LOW ORDER 
112 003277 104300 001130 000732 MOV SECTRK+1,DDUMMY +1 ‘HIGH ORDER 
113 003302 104204 0007 MOV ADDUMMY ,R4 >SET UP FOR MULT 
114 003304 104203 0017174 MOV #TRKCYL,R3 *DITTO 
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A FILE FOR PDP=-11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 26-2 SEQ 0049 
"TAL IZATION OVERLAY 

115 003306 021542 CALL DMUL sCOMPUTE IT 

116 003307 104140 001131 MOV (R4),SECTCY | :LOAD FOR STORE 

La EA 003311 104640 000001 001132 MOV 1(R4) ,SECTCY+1 >LOAD FOR STORE 

iB : COMPUTE SECTORS IN XBN AREA (84 => SECTORS/CYL) 

c Ps 

121 003314 104670 000021 000736 MOV XBNCYL (RO) , TEMP :LOAD NUMBER OF XBN CYLINDERS 
1S¢ 003317 114 000737 CLR TEMP+1 =CLEAR FOR STORE 

123 003321 104203 000736 MOV ATEMP,R3 >SET UP FOR MULT 

124 003323 021542 CALL DMUL >GET XBN SECTORS 

125 003324 104140 001137 MOV (R4) , XBNSEC :LOAD FOR STORE 

$8 003574 104640 000001 001140 MOV 1(R4) ,XBNSEC+1 :LOAD FOR STORE 

198 COMPUTE LAST CYLINDER NUMBER ON SUBUNIT 

130 003331 104207 001052 MOV ASCR,RO :POINT TO CHARACTERISTICS 
131 003333 104670 000000 001143 MOV CYLBN(RO) ,LBNCYL -GET LOW ORDER LBN CYLINDERS 
132 003336 104670 000000 000736 MOV CYLBN(RO), TEMP :ALSO FOR MATH 

133 003341 104674 000001 MOV CYLBN+1 (RO) ,R4 -GET HIGH ORDER 

134 003343 104040 001144 MOV R4,LBNCYL+1 : STORE HI ORDER 

135 003345 104040 000737 MOV R4, TEMP+1 :ALSO FOR MATH 

136 003347 104204 000736 MOV ATEMP RS :SET UP FOR ADD 

137 003351 104670 000021 000731 MOV XBNCYL (RO) , DDUMMY -LOAD XBN CYLINDERS 

138 003354 114000 000732 CLR DDUMMY +1 :CLEAR HIGH ORDER 

139 003356 104203 000731 MOV ADDUMMY ,R3 :SET UP FOR ADD 

140 003360 021506 CALL DADD -GET LBN+XBN CYLINDERS 

141 003361 104673 000022 MOV DBNCYL (RO) ,R3 *LOAD DBN CYLINDERS 

142 003363 110703 SWAB R3 :GET INTO LO BYTE 

143 003364 103203 17740v BIC #MHIBYTE,RS : CLEAR GARBAGE 

144 003366 104030 000731 MOV R3,DDUMMY :FOR DIVIDE 

145 003370 114000 000732 CLR DDUMMY +1 >CLEAR HIGH ORDER 

146 003372 104203 000731 MOV ADDUMMY ,R3 -SET UP FRO ADD 

147 003374 021506 CALL DADD :GET LBN+XBN+DBN CYLINDERS 
148 003375 104642 000001 1(R4) .R2 -GET HIGH ORDER 

149 003377 104673 000001 MOV STCYL (RO) ,R3 :GET CYLINDER BITS 

150 003401 103203 007777 BIC #LO,R3 -CLEAR OUT REST OF WORD 

151 003403 101032 BIS R3,R2 -OR IN CYLINDER HIGH BITS 
126 ait rh 100642 000001 MOV R2,7(R4) : STORE BACK 

15 3406 104203 001466 MOV HONE ,R3 -DECREMENT TO GET NUM OF LAST CYL 
154 003410 021524 CALL DSUB :D0 IT 

155 003411 104140 001125 MOV (R4),CYLNUM :MAKE IT CURRENT CYLINDER 
128 003413 104640 000001 01126 MOV 1(R4) ,CYLNUM+1 -LOAD HI ORDER 

128 ; COMPUTE NON-PAD RCT 

160 003416 104300 001135 000736 MOV RBNLBN, TEMP :GET LOW ORDER LBN'S IN HOST AREA 
161 003421 104300 001136 000737 MOV RBNLBN+1, TEMP+1 :GET HIGH ORDER 

162 003424 104200 000177 000751 MOV #127. ,DDUMMY -ADD 127 FOR DIV FUNCTION 
163 003427 114000 000732 CLR DDUMMY +1 >FOR CLEAR 

164 003431 104204 00073 MOV ATEMP RS -FOR ADD 

165 003433 104203 000731 MOV ADDUMMY ,R3 -DITTO 

166 003435 021506 CALL DADD : ADD 

167 003436 104200 000200 000731 MOV #128. ,DDUMMY -FOR DIVIDE (128 RBN/RCT BLOCK) 
168 003441 114000 000732 CLR DDUMMY +1 :FOR STORE 

169 003443 104203 000731 MOV ADDUMMY ,R3 -POINT TO IT 

170 oF 021570 CALL DDIV :DO DIVIDE 

171 003446 104140 001261 MOV (R4) ,.RCTLBN -GET LOW ORDER QUOTIENT 
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181 sit ge 
182 003472 
183 003473 
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187 003504 
188 003505 
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191 003514 
192 003515 
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196 003525 
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201 003531 
202 003535 
203 0035355 
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205 tae 
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000002 


000200 
000732 
000731 
000002 
000732 
000731 


001260 
001260 


005567 
001450 


000125 
001445 


001446 
001447 


001451 


001127 
000003 
000737 
000736 
007275 
000732 
000731 


001231 


001267 


000736 
000737 
000731 


900731 


000731 


00073% 


000736 


000731 


OVER: 


INITIALIZE GOOD DATA BLOCK 


SET UP END OF IMAGE POINTER 
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ZATION OVERLAY 


#2,RCTLBN 


E NON-PAD FCT 


RBNLBN, TE 
RBNLBN+1, 
#2 ,DDUMMY 


DDI 
#127. ,DDUMMY 


DDUMMY +1 
ATEMP,R4 
ADDUMMY ,R3 


DMU 
(R4) ,F CTNPD 
FCTNPD 


#GDBLK ,R3 


OVER 
EDC,R2 
R2, (R3)+ 


ASECTRK,R3 
# P 


DAD 
(R4) ,E IMAGE 


MP 
TEMP+1 


SEQ 0050 


:FOR CONTROL BLOCKS 


;GET LOW ORDER LBN'S IN HOST AREA 
:GET HIGH ORDER 

sFOR DIVIDE BY 2 

iDITTO 


; SETUP 


3 SETUP 

;CALL DIVIDE 

sADD 127 FOR DIV FUNCTION 
;FOR CLEAR 

sFOR ADD 

se 


:ADD 

:FOR DIVIDE (128 RBN/RCT BLOCK) 
:FOR STORE 

:POINT TO IT 

3D0 DIVIDE 

:FOR MULT 

: CLEAR HIGH WORD 

:FOR DIVIDE 

:DD MULTIPLY 

:NON-PAD FCT BLOCKS 
:FOR NON-PAD FCT BLOCKS 


;POINT TO BUFFER 
;DIAGNOSTIC WORD 
sSTORE IT ; 
7SET COUNTER 


~3FIRST WORD OF PATTERN 


:STORE IT | 
;SECOND WORD OF PATTERN 
: STORE | 


IT 
; THIRD WORD OF PATTERN 
sSTORE IT 

;DECREMENT COUNTER 
;REPEAT TILL DONE 

sEDC FOR PATTERN 
;STORE IT 


> SEC/TRACK 

:FOR MULT 

:FOR STORE 
>SET UP FOR MULT 

-GET LENGTH OF IMAGE BLOCK 
:FOR ADD 

:CLEAR HIGH BYTE 

:SET UP FOR ADD 

:ADD TO GET ADDRESS 

-GET ADDRESS 


nin 


es 


DATA FILE FOR PDP 

“INITIALIZATION OVE 
1 

| 2 
3 

cae 
6 003602 104207 

| 7? 003604 104673 
8 003606 110703 
9 003607 103203 
10 003611 104050 
11 003613 114000 
12 003613 104204 
13 003617 104203 
14 003621 021542 
15 003622 106300 
16 003625 033635 
17 003626 104200 
1B 003631 104200 
19 003634 003643 
20 003635 104200 
21 003640 104200 
22 003643 


anaes 


000736 
000737 
000736 
001127 
001235 
000011 
000044 


000006 
000033 


000736 


001234 
001233 


001234 
001235 


Be Be Be Se Be 


Two: 
ISKIP: 


oo 
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L 


COMPUTE INTERLEAVE FACTOR 


MOV #CR,RO 

MOV REVSEC(RO),R3 
SWAB R3 

BIC #MHIBYTE,R3 
MOV R3,TEMP 

CLR TEMP+1 

MOV ATEMP RS 
MOV ASECTRK,R5 
CALL DMUL 

CMP CUTOF , TEMP 
BPL TWO 

MOV #THREB, TBLK 
MOV #44 ,SKPCNT 
BR ISKIP 

MOV #TWOB, TBLK 
MOV #33,SKPCNT 


SEQ 0051 


;POINT TO CHARACTERISTICS BLOCK 
;GET REVS/SECOND 
:GET INTO LOW BYTE 
:CLEAR HIGH BYTE 
:FOR MULTIPLY 

;CLEAR FOR STORE 
7SET UP FCR MULTIPLY 
; SECTORS/ TRACK 

;GET SECTORS/SECOND 
;WITHIN LIMITS ? 

:DO BI-LEAVE 

sELSE DO TRI-LEAVE 


_ 3 INIT CHECK PASS OFFSET 


;SKIP BI-LEAVE SETUP 
;DO BI-LEAVE 
: INIT CHECK PASS OFFSET 
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FOR PDP=11 UDA DISK D MACRO K04.00 23-JUL~81 15:08:54 PAGE 28 SEQ 0052 DA 


E 

ZATION OVERLAY oe 
: FILL IN FCT INFO 

003643 104207 001037 MOY #CR,RO :POINT TO CHARACTERISTICS BLK 

093645 104673 000001 MOV FRCPY (RO) . R3 :GET F/RCT ois | 

003647 110703 SWAB =GET INTO LOW BYTE | 

003650 103203 177760 BIC etn: R3 *CLEAR -OUT REST OF GARBAGE | 

003652 104030 001244 MOV R3.FCTCPY = STORE | 

003654 104207 001052 MOV #SCR,RO “POINT TO SUBUNIT CHARACTERISTICS | 

003656 104670 000010 001240 MOV FCTSZ(RO).FCTFMT “GET FCT SIZE IN SECTORS 

003661 114000 001241 CLR FCTFMT+1 “CLEAR HIHG ORDER 

003663 104670 000014 001242 MOV RCTSZ(RO),.RCTFMT =GET RCT SIZE 

003666 114000 001243 CLR RCTFMT+1 >CLEAR HIHG ORDER 


4 


COMPUTE HIGHEST PBN IN LBN AREA 


Be Be Be Be Be Be 


003670 104300 001133 000736 MOV LBNLBN, TEMP -GET LOW ORDER 

003673 104300 001134 000737 MOV LBNLBN+1, TEMP+1 :GET HIGH ORDER 

003676 104204 000736 MOV ATEMP,R4 “FOR SUB 

003700 104203 001135 MOV ARBNLBN,R3 =POINT TO RBN'S IN LBN AREA 
00 AN 061 286 CALL DADD “ADD TO GET HIGHEST PBN 
003703 104203 001466 MOV HONE ,R3 DITTO 

003705 021524 CALL DS :-TO GET ACTUAL PBN NUMBER 
003706 104642 000001 MOV 1(RG) ,R2 ;GET HIGH ORDER 

003710 107302 001335 SUB ST.LBN,R2 -SUBTRACT TO GET RELATIVE LAST BLOCK 
003712 104020 001155 MOV R2,HGHPBN+1 =STORE IT 

003714 104140 001154 MOV  (R4) ,HGHPBN -GET HIGH ORDER 


_ - ee 
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OR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 29 SEQ 0053 


a 
| 
'DATA FILE F 
INITIALIZATION OVERLAY 
| 1 : 
| 2 COMPUTE REVECTOR BUFFER ADDRESS AND MAX REVECTOR COUNT 
| 4 003716 104200 000003 000736 MOV #IMLEN, TEMP :GET LENGTH OF FORMAT IMAGE BLOCK 
| 5 003721 114000 7 CLR TEMP+1 “CLEAR FOR STORE 
| 6 003723 104206 000736 MOV ATEMP RS : MULT 
? 003725 104203 001127 | MOV ASECTRK,R3 - SECTORS/ TRACK 
8 003727 021542 CALL.  DMUL “GET LENGTH OF FORMAT BUFFER TABLE 
9 003730 104303 000736 MOV TEMP ,R3 =GET LENGTH 
10 003732 104204 007275 MOV #IMAGE .R4 “GET IMAGE BUFFER START ADDRESS 
11 003734 105034 ADD R3,R4 “GET START ADDRESS OF REVECTOR BUFFER 
12 003735 104040 0601224 MOV R4 . ERRBUF =STORE IT 
13 003737 104040 001252 MOV R4.ERPNT “INIT POINTER 
14 003741 104200 007775 000736 MOV #BMAX , TEMP “GET MAX BUFFER ADDRESS 
1§ 003744 114000 000737 CLR TEMP+1 -FOR CLEAR 
16 003746 104040 000731 MOV R4 , DDUMMY “STORE BEGINNING ADDRESS 
17 003750 114000 000732 : CLR DDUMMY +1 “CLEAR HIGH WORD 
18 003752 104204 000736 MOV ATEMP,R4 “POINT TC END ADDRESS 
19 003754 104203 000731 MOV #DDUMMY ,R3 “POINT TO BEGINNING ADDRESS 
20 003756 021524 CALL DSUB “SUBTRACT TO GET LENGTH 
21 003757 104304 000736 MOV TEMP ,R4 . =GET LENGTH 
22 003761 110604 ROR RG “DIVIDE BY 2 (LENGTH OF 1 ENTRY) 
¢3 003762 104040 001225 MOV R4,EMAX “STORE AS MAX NUMBER 
$2 : STORE RETRY AND RECOVERY LEVELS 
37 003764 104207 001037 MOV #CR,RO :POINT TO CHARACTERISTICS 
38 003766 104673 000002 | MOV ERCV(RO) .R3 “GET RECOVERY LEVELS 
39 003770 103203 177400 | BIC #HIBYTE ,R3 “CLEAR HIGH ORDER 
30 003772 104030 001503 MOV R3,RECOV | “STORE IT 
31 003774 104030 001505 MOV R3,RECTMP - INIT COUNTER 
32 003776 104673 000001 MOV RTRY (RO) ,R3 “GET RETRY NUMBER 
33 004000 110603 ROR R3 “SHIFT BY FOUR TO GET INTO LOW ORDER NIBBLE 
34 004001 110603 ROR R35 
35 004002 110603 ) ROR R3 
36 004003 110603 ROR R3 
37 004 103203 177700 7 BIC #HI2BYTE,R3 -CLEAR HIGH ORDER JUNK 
38 004006 115403 INC R3 “ONE MORE BECAUSE OF WRONG INC 
39 004007 104030 001502" MOV R3,RETRY “STORE IT 
40 004011 114000 001504 CLR TMPTRY “FAR STORE 
4 : 
43 : SET UP LONG TIMEOUT 
45 : | 
46 004013 104207 001037 MOV #CR,RO -POINT TO COMMON CHARACTERISTICS 
47 004015 104673 000001 MOV LONGTO(RO) ,R3 “GET LONG TIMEOUT IN LOG2 
48 004017 103203 177760 BIC AFCLR,R3 “CLEAR ALL BUT TIMEOUT 
49 004021 117403 | DEC R3 “ALREADY HAVE SHIFTED ONCE 
50 004022 104201 000001 MOV #1,R1 “INIT COUNTER 
51 004024 105201 200000 | ADD #0.R1 “CLEAR CARRY 
52 004026 110201 TIMLOP: ROL R1 SHIFT 
5% 004027 117403 DEC R3 “DECREMENT SHIFT COUNT 
54 004030 054026 BNE TIMLOP “CONTINUE TILL DONE 
35 004031 104010 001250 MOV ai.i10 °° “STORE IT FOR US LATER 
&? : 
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IZATION OVERLAY 


INITIAL 
| 53 
| 69 
| 60 
61 004033 
| 62 004035 
| 63 004037 
| 64 004041 
| 65 004042 
| 66 004044 
67 004046 
68 004047 
69 904050 
70 004051 
71 004053 
72 004054 
73 004055 
74 004056 
75 
76 
77 
78 
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001037 
000000 
177760 


000001 
000000 


000012 


001251 


000004 


001305 


000004 


001301 


001052 
000005 
177400 
000005 


177400 
001333 


001334 
001334 


TILOP: 


TILOP1: 


1$: 


2$: 


SET UP SHORT TIMEOUT 


SET UP HEADER AND DATA PREAMBLE 


————— ea ae —— 


#CR,RO 
SHORTO(RO) ,R3 


#FCLR,R3 
R5 

#1,R1 
#0,R1 

R1 

R3 
TILOP 
#10. R35 
R1 


R35 
TILOP1 
R1,ST0O 


(RO)+,R2 
R2,(R3)+ 
R5 
2$ 


#SCR,RO 
DATA(RO) ,DPREA 
AHIBYTE.DPREA 
HEAD (RO) .R3 


R3 
#HIBYTE ,R3 


R3,HPREA 
R1 


SEQ 0054 


;POINT TO COMM CHAR 
:GET SHORT TIMEOUT WORD 
; CLEAR 


: WORD 
7FOR LOG CALCULATION 
; INIT COUNTER 

;CLEAR CARRY 

ROTATE (MULT BY 2) 

;DECREMENT COUNTER 

;KEEP GOING TILL DONE 

;SHIFT COUNT FOR MILSEC CONVERSION 
;GET NUMBER IN MILSECS 

;GO TILL DONE 


; AGAIN 
>STORE IT 


SERIAL NUMER AND DATE FROM DMBUF 


:COUNT OF WORDS IN SERIAL NUMBRE 
sPOINT TO BUFFER 

:POINT TO SERIAL NUMBER 

:POINT TO BUFFER 

;GET WORD 

: STORE WORD 
:DECREMENT COUNT 
:CONTINURE TILL DONE 
:RESET COUNT FOR DATE 
:POINT TO DMBUF 
:POINT TO DATE 

:POINT TO DATE BUFFER 
:GET WORD 

; STORE WORD 
:DECREMENT COUTNER 

: CONTINUE TILL DONE 


LENGTHS 


-POINT TO CHARACTERISTICS BLK 
“DATA PREAMBLE LENGTH 


“HEADER PREAMBLE LENGTH 

“GET INTO LOW BYTE 

“CLEAR OUT HIGH BYTE GARBAGE 
“STORE IT 

>FOR NO ERROR 


nce LL LE 


ee 
- ———— eee ee 
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DATA FILE FOR PDP=-11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 30 SEQ 0055 
INITIALIZATION OVERLAY 
1 : 
: : SET UP STARTING ADDRESS BITS 
4 004130 104203 001052 : MOV ASCR,R3 :POINT TO SUBUNIT CHAR BLOCK 
‘ : LBN 
8 004132 104637 000002 , MOV STLBN(R3) RO :GET THE WORD 
9 004134 103207 170377 | BIC #STCLR,RO “CLEAR THE REST 
10 004136 104070 001335 MOV: RO.ST.LBN “STORE IT 
i ere. 
14 004140 104637 000003 ‘ MOV STRBN(R3) ,RO :GET RBN WORD 
1§ 004142 103207 170377 BIC #STCLR,RO “CLEAR THE REST 
1g 004144 104070 001336 MOV RO,ST.RBN =STORE IT 
18 : XBN 
20 004146 104637 000002 ae STXBN(R3) ,RO -GET THE WORD 
21 004150 110607 ROR RO 
22 004151 110607 ROR RO 
23 004152 110607 ROR RO ; 
24 004153 110607 ROR RO -GET INTO THE RIGHT NIBBLE 
25 004154 103207 170377 BIC #STCLR.RO “CLEAR THE REST 
e6 004156 104070 001337 MOV RO. ST.XBN “STORE IT 
28 : DBN 
30 004160 104637 000003 : MOV STDBN(R3) ,RO -GET THE WORD 
3! 004162 110607 ROR RO 3 
004163 110607 3 ROR RO 
vette 110607 ROR - RO 
$4 904 004165 110607 ROR RO -GET INTO THE RIGHT NIBBLE 
166 103207 170377 BIC #STCLR.RO “CLEAR THE REST 
36 BOI 98 104070 001340 MOV RO,ST.DBN =STORE IT 


S .3 
E FOR PDP=-11 UDA DISK D MACRO K04.00 ¢3-JuUL-81 15:08:54 PAGE 31 SEQ 0056 
ZATION OVERLAY 


INITIAL 
| 1 ; 
| ¢ : CLEAR ECC THRESHOLD 
4 006172 104203 001037 ° MOV #CR,R3 :POINT TO CHARACTERISTICS 
§ 094174 106632 MOV ERRSYM(R3) .R2 >GET THE WORD 
6 004176 103202 000377 BIC #| OBYTE.R2 “CLEAR THE THRESHOLD 
7 004200 100632 000002 MOV R2.ERRSYM(R3) -STORE IT BACK 
& 004202 000000 RE TURN 
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PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 32 SEQ 0057 


H 
ATION OVERLAY 


FO 
? 
6 


FIND SDI INTERCONNECT FOR DESIRED UNIT 


004203 104205 001263 GETUNT: MOV #DMBUF ,R5 :POINT TO STARTUP INFO 
004205 114000 00150 CLR COUNT :>FOR INTERCONNECT INIT 
004207 104<00 000001 900740 MOV #1 UNIT > INIT INTERCONNECT 
004212 104203 00074 GOVER: MOV #CR.GST,R3 :FOR GET STATUS 

004214 104237 MOV (R3)+,RO :GETCOMMAND ADDRESS 
0604215 104231 . MOV (R3)+,R1 :GET COMMAND SIZE 

004216 104302 000740 MOV UNIT,R2 >GET INTERCONNECT 

004220 4 KFC SEND - ISSUE GET STATUS COMMAND. 
004221 115001 TST R1 :SUCCESSFUL ? 

004222 014232 BEQ GSKIP1 :YUP = SKIP RETRY 

004223 115400 000717 INC UN. ERI : INC COUNT 

004225 106300 001502 000717 CMP RETRY,UN.ERI :DONE ALL RETIES ? 
004230 074352 BMI NOTHER : YUP 

004231 004212 BR GOVER 

004232 114000 000717 GSKIP1: CLR UN.ERI :FOR ERROR CLEAR 

004234 104231 MOV (R3)+,R1 -GET RECEIVE BUFFRE 
004235 104137 MOV (R3) ,RO :GET BUFFER LENGTH 
004236 060005 KFC RCV :RECEIVE SDI RESPONSE 
004237 115001 TST R1 >SUCCESSFUL ? 

004240 014250 BEQ GSKIP2 -YUP - SKIP RETRY 

004241 115400 001501 INC COUNT : INC ERROR COUNT 

004243 106300 001502 001501 CMP RETRY, COUNT :DONE ALL RETRIES ? 
004246 074352 BM] NOTHER > YUP 

004247 004212 BR GOVER > TRY AGAIN 

004250 114000 001501 GSKIP2: CLR COUNT :FOR COUNT CLEAR 

004252 104204 001030 MOV AST ,R4 >POINT TO STATUS BUFFER 
094254 104641 000000 MOV UID(R4S) RI :>GET UNIT NUMBER FROM STATUS 
004256 103201 170000 BIC #HD.CLR.R1 -CLEAR GARBAGE 

004260 106651 000003 CMP DMUNIT (RS) .R1 - :7S IT THE ONE ? | 
004262 074352 BMI NOTHER :NOT EVEN A POSSIBLE SUBUNIT 
004263 054267 BNE GSKIP3 -NO - SEE IF A SUBUNIT 
004264 104202 000001 MOV ~— #1,R2 > SET SUBUNIT MASK 

004266 004337 BR GDONE 3 :AND EXIT 

004267 104643 000000 GSKIP3: MOV MASK (RS) ,R3 -GET SUBUNIT MASK 

004271 103203 007777 BIC #LO,R3 : CLEAR GARBAGE 

004273 110703 SWAB R3 -GET INTO LOW BYTE 
004274 110603 ROR R3 -TO GET IN LOW NIBBLE 
004275 110603 ROR R3 -TO GET IN LOW NIBBLE 
004276 110603 ROR R3 -TO GET IN LOW NIBBLE 
004277 110603 ROR R3 ) >TO GET IN LOW NIBBLE 
004300 114007 CLR RO -CLEAR COUNTER 

004301 102203 000002 BIT #BIT1,R3 : ANYTHING THERE ? 

004303 014315 BEQ GSKIP :NOPE -— ONLY 1 

004304 115407 INC RO -YUP - INCREMENT COUNTER 
004305 102203 000004 BIT #BIT2,R3 : ANYTHING HERE ? 

004307 014315 BEQ GSKIP -NOPE - ONLY 2 

004310 115407 INC RO > INC OUNTER 

004311 102203 9000010 BIT ABIT3.R3 ANYTHING HERE ? 

004313 014315 BEQ GSKIP ; NOPE 

004314 115407 INC > YUP 

004315 105071 GSKIP: ADD RO,R1 -ADD TO UNIT NUMBER 
004316 107651 000003 SUB DMUNIT (RS) ,R7 “GET RELATIVE OFFSET FROM GIVEN UNIT NUMBER 


—EE——=—— nen - 


ww Pn 
rr 
er 


‘O00 


NEW H-O OBWNAULWH Ow” 


NE 


G 5 
E FOR PDP=-11 UDA DISK D MACRO K04.00 23-JUL-81 15:08:54 PAGE 32-1 SEQ 0058 
ZATION OVERLAY ) 
004320 074352 BMI NOTHER > IF NEGATIVE THEN NOT IN THE RANGE 
004321 104653 000003 MOV DMUNIT (RS) .R3 :GET DESIRED 
004323 104641 000000 MOV UID(R4) ,R1 7GET ORIGINAL 
004325 103201 170000 BIC #Hi .CLR,R1 : CLEAR SUBUNIT MASK 
004327 107013 SUB R1,R3 >FIGURE OUT WHICH SUBUNIT 
604330 104202 000001 MOV #1,R2 > INIT SUBUNIT 
004332 105202 000000 ADD #0,R2 >TO CLEAR CARRY 
004334 110202 SFTRPT: ROL R2 >SHIFT LEFT 
004335 117403 DEC ” :DECREMTN COUNTER 
004336 054334 BNE SF TRPT -REPEAT SHIFT 
004337 105202 000000 GDONE: ADD #0,R2 :CLEAR CARRY 
004341 110202 ROL R2 >HAVE TO ROTATE 
004342 110202 ROL R2 :4 TIMES TO DO A 
004343 110202 ROL R2 : SWAP NIBBLE 
004344 110 | ROL R2 :FOR SUBUNIT MASK 
004345 104020 001020 MOV R2,GSR+1 -STORE MASK IN SUBUNIT CHAR COMMAND 
004347 101020 001025 BIS R2,ACC+1 -SET IN FOR CHANGE MODE COMMAND 
004351 000 RETURN RETURN 
0046352 104302 000740 NOTHER: MOV UNIT,R2 >GET CURRENT INTERCONNECT 
004354 105022 ADD R2,R2 :NEXT PORT 
004355 104020 000740 MOV R2,UNIT > SAVE BACK 
004357 114000 000717 CLR UN.ERI :FOR RESTORE 
004361 114000 001501 CLR COUNT >CLEAR ERROR COUNT 
004363 106202 000010 CMP #8.,R2 :ALL DONE ? 
004365 034212 BPL GOVER >NOPE - TRY THIS INTERCONNECT 
004366 104652 000002 MOV 2(R5) ,.R2 >UNIT SEARCHING FOR 
004370 104201 000007 MOV #7 ,R1 -SIGNAL NON-EXISTANT UNIT 
004372 022552 CALL ERRMNT -ERROR RETURN 
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32 004 
33 004442 
34 004443 


004427 
000000 


104302 


000000 


001263 
000004 
000002 


000020 
000001 


000004 
002000 
000001 
000400 


000740 


001217 


001217 
001217 
001217 
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LGSET: 


F! GSKP: 


OOPS: 
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ZATION OVERLAY 


SET UP FLAGS 

MOV #DMBUF ,R5 
MOV DMF LG(R3) ,R4 
BIT #BIT1,R 

BNE FLGSKP 

BIS #GOBAD ,FLAG 
BIT #BI1T0,R 

BNE RFCT 

BIT ABIT2,R4S . 
BNE DFCT 

BIS #BSTGS,FLAG 
BR F LGDON 

BIS MF CTAVL.FLAG 
BR FLGDON 

BIS ADLL.FLAG 
BR FLGDON 
RETURN 


INITIALIZATION ROUTINE 


CALL 


~ RETURN 


sPOINT TO BUFFER 
;GET FLAG WORD 
;STOP IF BAD FLAG ? 
:YES - SKIP SET 


sSeT If 

:USE RESIDENT FCT ? 
;YUP - SET IT UP 
:DOWN-LINE LOAD FCT ? 
:YUP - SET IT UP 

:DO BEST GUESS 

>ELS USE BEST GUESS 
-SET FLAG 


sEXOT 
>SET FOR DLL 
; DONE 


>SELECT UNIT 

: INIT DRIVE 

:GET THE SDI INTERCONNECT 
:SET UP FLAGS 

:-BRING IT ONLINE 

:GET STATUS 

sANY ERRORS ? 

:YUP - QUIT 
;RECALIBRATE 

>: COMPUTE DISK CONSTANTS 
:AND STOP 


SEQ 0059 
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T OVERLAY (F1) 


000000 
000010 


001052 
000010 


000022 
177400 
001460 
002000 


000200 
001256 


005152 
005170 
005170 
001256 


000002 
140000 


001120 


001217 


001217 
001500 


001217 
001462 


001462 
001460 


DXF ORM: 


SKIP19: 
SKIP4: 


XBNIT: 


SKIP?1: 


SEQ 0060 


.SBITL DBN/XBN FORMAT OVERLAY (F1) 


FORMAT DBN AND XBN AREAS 


F1,START 


#F 1, CUROVL 
#DBN, FLAG 
DXF ORM 
FCTREV,R3 
FCNT.R3 
ERRCNT.R3 
R3, DBBAD 
ERRCNT 
FCNT,FCTREV 
#DBN.FLAG 
DXF ORM 
FCTREV,R3 
FCNT.R3 
ERRCNT,R3 
R3, XBBAD 
ERRCNT 
#F3,R1 
NEXT 


#SCR,RO 
ADBN,FLAG 


XBNIT 
DBNCYL (RO) ,R3 


R3 
#HIBYTE,R3 
R3,CNTCYL 
ABSTGS ,FLAG 
SKIPS 
#128. ,PCNT 
FCTCNT 


DXF CPG 

#PBNBUF ,BADPBN 
PBNBUF +€512,F CNT 
PBNBUF +C512,FCTREV 


SK 

#FCTEMT FLAG 
#HD .DBN,HD.CUR 
NUMDBN 


SKIP1 
#HD .XBN,HD.CUR 
XBNCYL (RO) ,CNTCYL 


NUMXBN 

(R4) ,HOLDBN 
(R4)+,CURBN 
(R4) ,HOLDBN+1 


sOVERLAY #1 

:SET DBN FORMAT 

:FORMAT DBN AREA 

> STARTING FCT ENTRY COUNT 
: TOTAL BAD IN DBN AREA 
sGET FINAL TOTAL 

:STORE IT FOR STATS 

-FOR CLEAR 


:FOR BAD BLOCK COUNT 
:D0 XBN AREA 

:FORMAT XBN AREA 

> STARTING FCT ENTRY COUNT 
: TOTAL BAD IN XBN AREA 
-GET FINAL TOTAL 

>STORE IT FOR STATS 

:FOR CLEAR 

sFCT DLL OVERLAY 

:BRING IN NEXT OVERLAY 


;POINT TO CHARACTERISTICS BLOCK 
:DO0 DBN AREA ? 

:NO - DO XBN AREA 

:GET NUMBER OF CYLS TO FM 

:GET INTO LOW BYTE 

;CLEAR HI BYTE 

;SET UP COUNTER 

:DOING BEST GUESS ??? 

sYES ~- SKIP FCT SET UP 

3FOR PBN COUNT INIT 

;FOR INIT FCT READ 

sREAD IT IN 

:ADDR OF BAD PBN LIST 

:GET COUNT OF USED ENTRIES 
:STORE IT FOR STAT COMPUTATION 
:1F ZERO - THEN NO ENTRIES 
:START WITH SECOND FCT BLOCK 
;BRING IT_IN 

;SKIP NO ENTRY STUFF 

:SET EMPTY FLAG 

;GET DBN HEADER CODE 

:GET DBN OF FIRST BLOCK ON LAST CYLINDER 
:SKIP XBN SETUP 

7GET XBN HEADER CODE 

:GET CYLINDERS IN XBN AREA 

:GET XBN OF FIRST BLOCK ig XBN CYL 


; MAKE IT CUR NUMB 
-HI ORDER FIRST BLOCK NUM TO DO 


_—— ee ——EEE 


eee ae —™ 
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SATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 34-1 SEQ 0061 
YRN/XBN FORMAT OVERLAY (F1) 
58 003206 10414C 001114 MOV (R4), CURBN+1 sAND MAKE IT CURRENT NUMBER 
59 003210 104207 001052 SLEEK: MOV #SCR,RO :POINT TO CHARACTERISTICS BLK 
(9 003212 104670 2 001464 MOV GRPCYL (RO) , GRPCNT =LOAD GROUPS/CYL 
61 003215 103200 177400 1464 BIC MHIBYTE,GRPCNT :CLEAR OUT HIGH GARBAGE 
62 003220 104300 1464 001463 MOV GRPCNT , CURGRP :GET GROUP NUMBER BY 
63 003223 117400 001463 DEC CURGRP : DECREMENT ING 
003225 104300 001125 001076 SLEEK2: MOV CYLNUM, ISEEK+1 :GET LO ORDER WORD OF CYLINDER NUMBER 
65 pits te 104300 001126 001077 MOV CYLNUM+1, ISEEK+2 :LOAD HIGH ORDER WORD OF CYL NUM 
003233 104300 001463 001100 MOV CURGRP, ISEEK+3 >LOAD GROUP NUMBER 
7 003235 022251 CALL SEEK >SEEK TO CURRENT CYL NUM 
003237 115001 TST R1 -ANY ERRORS ? 
69 003240 073402 BMI SKERR :YUP = QUIT 
70 003241 104207 001052 MOV #SCR,RO :POINT TO CHARACTERISTICS BLOCK 
71 003243 104673 000003 MOV TRKGRP (RO) ,R3 *LOAD TRACKS/GROUP 
72 003245 103203 177400 BIC MHIBYTE,R3 >CLEAR OUT HIGH GARBAGE 
73 003¢67 104030 001465 MOV R3,TRKCNT :STORE IN COUNTER 
74 002751 117403 DEC R : TRACK NUMBER IS ONE LESS 
75 003252 104030 001112 MOV R3,CURTRK -RESET CURRENT TRACK NUMBER 
76 003254 104201 000047 SKIP3: MOV #G7.R1 >FORMAT SETUP OVERLAY 
77 eases 022444 CALL PAGE :D0 IT 
78 003257 104304 001334 SKIP7: MOV DPREA,R4 -DATA PREAMBLE LENGTH 
79 003261 104303 001333 MOV HPREA,R3 sHEADER PREAMBLE LENGTH 
80 003263 104307 001332 MOV IMSTAR,RO >POINT TO FORMAT IMAGE START POINT 
81 003265 104301 001112 MOV CURTRK ,R1 > TRACK TO FORMAT 
#2 003267 104302 000740 MOV UNIT,R2 :SDI INTERCONNECT 
83 003271 104205 007275 MOV #IMAGE ,R5 >RECIRCULATION POINTER 
84 003273 060001 KFC FORMAT -FORMAT THE TRACK 
85 003274 115001 TST R1 :ANY ERRORS ? 
86 003275 013310 BEQ SKIP6 :NO - DO CHECK PASS 
87 003276 115400 000717 INC UN. ERI : INCREMENT IT 
88 003300 106300 001502 000717 CMP RETRY,UN.ERI -DONE ALL RETRIES ? 
89 003303 073376 ] FERR :YUP - ERROR 
90 003304 072371 CALL INI TPT :REINIT 
91 003305 022243 CALL CLEAR :DRIVE CLEAR 
92 003306 022251 CALL SEEK >RE-SEEK AND GROUP SELECT 
93 003307 003257 SBR SKIP7 sRETRY FORMAT 
94 003310 114000 000717 SKIP6: CLR UN. ERI :FOR STORE 
95 003312 023477 CALL DX CHE C :DO CHECK PASS 
96 003313 117400 001112 D CURTRK :DECREMENT IT 
97 003315 104204 1117 MOV #HOLDBN ,R4S :PREPARE FOR BEGINNING BLOCK DECREMENT 
98 003317 104203 001127 MOV #SECTRK,R3 -DECREMENT BY SECTORS/TRACK 
99 003321 021524 CALL DSUB :DO DECREMENT 
100 003322 104300 1117 001173 MOV HOL DBN, CURBN -LO ORDER NEW BLOCK NUMBER 
101 Miter 104300 1120 001114 MOV HOL DBN+1, CURBN+ 1 -HI] ORDER NEW BLOCK NUMBER 
102 330 117400 001465 DEC TRKCNT :DECREMENT IT 
103 OO eees 053254 BNE SKIP3 , :NO - DO NEXT TRACK 
104 003333 117400 001463 DEC CURGRP -DECREMENT GROUP NUMBER 
105 003335 117400 001464 DEC GRPCNT :DECREMENT IT 
106 003337 053225 BNE SLEEK2 -NO - DO NEXT GROUP 
107 003340 117400 001460 DEC CNTCYL :DECREMENT IT 
108 Oat 060022 KFC UPDATE :UPDATE PROGRESS INDICATOR 
10$ 003343 104207 001263 MOV #DMBUF ,RO -POINT TO MAINT BUFFER 
110 003345 104303 001316 MOV CYLMSG,R3 :GET DUP CODE 
111 003347 100173 MOV R3, (RO) :STORE IT 
112 003350 104303 9001317 MOV CYLMSG+1,R3 :GET CYLINDER MSG FLAG 
113 003352 100673 000001 MOV R3,1(RO) :STORE 11 
114 003354 104303 001125 MOV CYLNUM,R3 GET LOW ORDER CYLINDER NUMBER 
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SKIP12: 


FERR: 


SKERR: 
DXERR: 
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AY 


R3,3(RO) 
CYLNUM+1,R3 
pret Sd 


SNDMN 
ACYLNUM,R4S 
R3 


ME SSAGE 
GH ORDER 


;STOR 
:LET HOST KNOW WE'RE ALIVE 
:PREPARE FOR —— DE CREMENT 


“Ae 
“4 


ONE ? 
;DONE ? NO =~ DO NEXT CYLINDER 
7YES - ALL DONE 
:GET XFC FAILURE CODE 
7SET FORMAT ERROR 
7CYLINDER WHICH FAILED ON 
;SEEK ERROR 


“ERROR RETURN 


i TT 


SEQ 0062 


EE TT ane a ee 
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[DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JUL-61 15:08:54 PAGE 35 
DBN/XBN FORMAT OVERLAY (F1) 


SEQ 0065 


’ 1 . 
| ¢ *PAGE IN NEW FCT BLOCK 
Ps 
| 4 003407 DXFCPG: PUSH RO 
§ 003410 104201 000033 MOV #G2,R1 sDLL OVERLAY 
| 6 003412 022444 CALL PAGE -EXECUTE OVERLAY 
7 0034135 104200 000200 001501 MOV #128. , COUNT :FOR INIT 
8 003416 104200 005152 0012235 MOV #PBNBUF , BADPBN -FOR POINTER RESET 
9 003421 Pop RO >RESTORE RO 
10 003422 000000 RE TURN RETURN 
12 ; 
13 : COMPUTE NUMBER OF FIRST DBN ON LAST DBN TRACK 
Le : RO -> CHARACTERISTICS BLOCK 
16 ; 
17 003423 104673 000022 NUMDBN: MOV DBNCYL (RO) ,R3 :GET NUMBER OF CYLINDERS IN DBN AREA 
18 003425 110703 SWAB R3 :GET INTO LOW BYTE 
19 003426 103203 177400 BIC AHIBYTE,R3 >CLEAR OUT OTHER INFO 
20 003430 104030 000736 MOV R3, TEMP :MOVE TO TEMP AREA 
21 003432 114000 000737 CLR TEMP+1 -CLEAR FOR STORE 
22 003434 104204 000736 MOV #TEMP,R4 -POINT R4 AT TEMP AREA 
23 003436 104203 001131 MOV ASECTCY.R3 :POINT TO NUM OF SECTORS/CYLINDER 
24 003440 021542 CALL DMUL -MULTIPLY TO GET SECTORS BEFORE LAST CYL 
25 003441 104641 000001 MOV 1(R4) ,R1 :GET HIGH ORDER 
26 003443 105301 001340 ADD ST.DBN,R1 -ADD HIGH ORDER STARTING DBN 
27 003445 100641 000001 MOV R1,1(R4) -STORE BACK 
28 003447 104203 001127 MOV ASECTRK,R3 -WANT FIRST DN OF LAST TRACK 
29 003451 021524 CALL DSUB -SUB TO GET IT 
= 003452 000000 RETURN 
32 
33 : COMPUTE NUMBER OF FIRST XBN ON LAST XBN TRACK 
Me ; RO -> CHARACTERISTICS BLOCK 
%6 : 
37 003453 104670 000021 000736 NUMXBN: MOV XBNCYL (RO) , TEMP :GET NUMBER OF CYLINDERS IN XBN AREA 
38 003456 114000 000737 CLR TEMP+1 :CLEAR FOR STORE 
39 003460 104204 000736 MOV ATEMP,RS :POINT TO TEMP AREA 
40 003462 104203 001131 MOV MSECTCY.R3 :POINT TO SECTORS/CYLINDER 
41 003464 021542 CALL L -MULTIPLY TO GET SECTORS IN XBN AREA 
0034 104641 01 MOV 1(R4) ,R1 :GET HIGH ORDER 
43 003467 105301 001337 ADD ST.XBN,R :ADD HIGH ORDER STARTING XBN 
44 003471 100641 000001 MOV R1,1(R4S) : STORE BACK 
5 0034 104203 001127 MOV ASECTRK,R3 -WANT XBN OF LAST TRACK 
46 003475 ant CALL DSUB -SUB TO GET IT 
2 003476 00 RETURN 
49 : 
50 : CHECK PASS 
23 
53 003477 DXCHEC: PUSH RO :SAVE PTR TO CHARACTERISTICS BLK 
54 003500 114000 001226 DXCH: CLR ERR -FOR ERROR COUNT RESET 
55 003502 114000 001221 CLR ERFLAG *CLEAR RE-FORMAT FLAG 
56 003504 yy 000600 001217 BIT #MANU+DLL FLAG -FCT AVAILABLE ? | 
57 003507 013522 BEQ CSKIP -NO - DO EXTENSIVE READ 


naa 


DATA FILE F 
| DBN/XBN F 
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oO 
Ww 
WAAAANAANA 
PRURSNaS 


— I I I IO OO 


OF 


N 
Ww 
Ww 
MAAMAMMAVIMAVIUIVIUIU) 
Wun 
NUW On 


WANNA 
AAO 
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SRBLESRELLS SEN 
SoS ee coee 
EEEFESESE 


338888s8sss5 
PR oaeeaes 


RAN=S 
SARS 


OR PDP=-11 UDA 
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VERLAY 


060012 


RRER 
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NONUNUNUNRNW 


SRS tS 


as Se Se 
ROSARVNANRO 
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EEE irs 


000000 


001443 


000004 
020000 
020000 
001226 
001473 
000005 
001504 
001503 
000002 
001454 
001455 
001226 
007275 
020000 


001505 
001220 


CSKIP: 


C3KIP2: 
CSKIP1: 


AGAIN: 


READ1: 


RRERR: 


NOERR: 


HERE : 


Mm 5 
a D MACRO K04.00 23-JUL-81 15:98:54 PAGE 35-1 


SIP 
SECTRK,SECCNT 
#CMDBUF ,R5 
#RDBLK ,RO 
RB.BUF (R5) ,R3 


NOERR 
R3,RwW.BUF (RO) 
RB.LOW(RS) ,R3 
R3,RW.LOW(RO) 
RB.HI(R5) ,R3 
R3,RW.HI (RO) 
RB. CMD (RS) ,R3 


’ 


R3,RW.DUMC(RO) 
#<B1T15!RDBLK>,RO 


#RDCMD ,R3 
R3,RW.STAT (RO) 
READ 

R1 

RRERR 

#NUM RO 
CMPDAT 


R1 
NOERR 


RB. IM(RS) ,R3 
(R3) ,R4 


| WBD,R4 


TMPTRY 
RECOV,RECTMP 
#RTYDN,FLAG1 
SECCNT 

AGAIN 


N 
CSKIP1 
ERR 


CDONE 
HIMAGE ,R4 
(RG) RS 
#BD .R3 
CSKIP7 


7SET UP FOR STORE 


;SET UP 
;SAVE FOR LATER RESET 
:SKIP EXTENSIVE a4 a 


:D0 IT 
:SDI INTERCONNECT 
: SYNCH WITH os ia PULSE 


7YES =~ SKIP CHECKS 

sELSE STORE IT 

3GET LOW RODER BLOCK NUMBER 
; E INC OCK 


C 
: IN COMMAD BLOCK 
;POINTER TO DUMMY SDI BLOCK 
sSTORE IT IN READ BLOCK 
;MAKE SURE POINTING AT BLOCK 
;RESET oo 


:ANY ERRORS ? 

;YES - UH OH 

:POINT TO COMPARE BLOCK 
:DO DATA COMPARE 

sANY ERROR IN COMPARE ? 
;NOPE - CONTINUE LOOP 


;GET POINTER TO IMAGE 
;GET BUFFER POINTER WORD 
;ALREADY MARKED, BAD ?? 
:YUP - DON'T COUNT AGAIN 
sFLAG AS BAD 

; STORE BACK 

: INCREMENT ERROR COUNT 

; INC COUNTER 

:POINT TO NEXT READ CMD BLOCK 
;FOR RESET 

;GET agi ti LEVELS 


;NO 

;DECREMENT COUNTER 

:NO - REPEAT TRACK READ AND COMPARE 
sANY ERRORS ? 

;NO - ALL DONE CHECK PASS 

;POINT TO IMAGE BUFFER 

:GET BUFFER POINTER WORD 

:IS IT BAD 

sNO - SKIP IT 


SEQ 0064 


DATA FILE FOR 
| DBN/XBN FORMA 


| 
| 
| 


ee Se 


N 5 
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T OVERLA 
115 003657 104643 
116 003661 103203 
117 aces 106303 
118 003665 054000 
119 003666 10430 
120 003670 06001 
121 pote 94 
122 003673 104203 
123 003675 100673 
124 003677 104643 
1? 003701 100673 
126 003703 104643 
127 003705 100673 
128 003707 104203 
129 003711 100673 
130 003713 104203 
131 0035715 104301 
136 003717 101013 
133 003720 100673 
134 003722 104207 
135 003724 104205 
136 003726 100173 
137 OS, 104302 
138 003731 060002 
139 ares 115001 
140 003735 053753 
141 eee 104173 
1° 003755 102203 
143 003737 013743 
144 003740 023027 
145 003741 115001 
146 003742 073755 
147 0037435 104202 
148 003745 a 
149 003746 104205 
150 003750 106653 
151 Oe eaes 013770 
136 003753 
15 ited 104643 
154 4 755 103203 
155 003757 101203 
156 ted 1 3 
157 003763 115400 
128 3765 Meee 
15 767 0037 
160 770 + 117400 
161 os OF 7822 
106 003775 1043500 
16 3776 117400 
164 105204 
i SS Ue 
167 302005 115000 
168 004007 Be 
169 lo A ? 
170 004012 104303 
177 004014 104307 


er 


000002 
007777 
001462 


000001 
013400 


001112 
000004 
100721 
100000 


000740 
010000 


004535 


004535 
000400 


000002 
170000 
110000 
000002 
001221 
001453 


001456 


001457 
golese 


001456 


————————— a 


READ2: 


CSKIP6: 


ER1: 


OK: 


CSKIP3: 
CSKIP7: 


OVER2: 


FT .HI(R4) R35 
a 


(R4), 
R3,RW.HI (RO) 
#RDBUF ,R3 
R3,RW.BUF (RO) 
ARWCMD 


oR 
CURTRK,R1 


R1 »R3 
R3,RW. CMD (RO) 
#<B1T15!RDBLK>,RO 


aR 
RW. EDC (RS) .R3 
OK 


FT.HI(R4) ,R3 


#HD. 


CLR,RS 
3 


E 
#IMLEN,R4S 
ERR 

HERE 
ERFLAG 
CDONE 
DPREA,R4 
HPREA,R3 
IMSTAR,RO | 


SEQ 006° yh 
ai HIGH ORDER 


S X/ ; 
sNOPE = ALREADY REVECTORED IT 
:SDI INTERCONNECT | 
:WAIT FOR PULSE 
-PREPARE FOR READ SECTORS 


“POINTER TO DUMMY SDI BLOCK 
IN COMMAND BLOCK 


7H - 
STORE IN READ CMD BLOCK 
LOAD ADDRESS OF DATA BUFFER 
;STORE IN COMMAND BUFFER 
;LOAD SDI READ COMMAND 

;GET CURRENT HEAD NUMBER IN R1 
;SET IT IN COMMAND 

;STORE BACK 

sMAKE SURE POINTING AT BLOCK 
AS ONLY REQUEST 


— 


=READ 1 SECTOR 

:ANY ERROR IN READ ? 

=YES - CONSIDER BAD 

“LOAD ECC ERROR INDICATOR FOR TEST 
“ERROR ? 
"NO = CHECK €DC 

“ELSE FIND HOW MANY SYMBOLS IN ERROR 
“WITHIN BOUNDS ? 

“NOPE - CONSIDER BAD 

=POINT ‘TO BUFFER 

“COMPUTE EDC - RETURNED IN R3 

BUFFER 


rm 


:GET HI ORDER BLOCK NUM AND HDR CODE 
:CLEAR THE HEADER 


;MARK AS BA 

:STORE BACK IN IMAGE 

;SET RE-FORMAT FLAG | 

;UP COUNTER OF BAD BLOCKS 

:NO NEED TO RE-READ ANY MORE THIS SECTOR 

;DECREMENT COUNTER ~- DONE ? : 
3NO - RE-READ SECTOR IN ERROR | 
:GET SAVED VALUE 

;DECREMENT IT 

;POINT TO NEXT ERROR ENTRY 

;ALL DONE ERROR SECTORS 

;NO - DO NEXT SECTOR 

:WERE THERE ANY BAD SECTORS FOUND 
;NOPE - ALL DONE 

;DATA PREAMBLE LENGTH , 
;HEADER PREAMBLE LENGTH 

:POINT TO TRACK IMAGE START POINT 


ns 


nce 


B 6 
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| OBN/XBN FORMAT OVERLAY (F171) 
176 004016 104301 001112 MOV CURTRK,R1 
| 173 00640 104302 000740 MOV UNIT .R2 
174 0040 104205 007275 MOV #IMAGE .R5 
175 004024 ern sid XFC FORMAT 
176 0046025 115001 TST R1 | 
177 8 6 014041 BEQ OVER1 
178 027 115400 000717 INC UN.ERI a 
179 004031 1 +90 001502 000717 CMP RETRY -UN.En: 
180 004 3 0 6 I FERR 
181 5 0 $371 CALL INITPT 
18 $6 243 CALL CLEAR 
HF 0 2251 CALL SEEK 
1 040 0 BR OVER2 
185 041 114000 000717 OVER1: CLR UN.ERI 
186 004043 003500 BR DXCH 
4 004044 CDONE: POP RO 
188 004045 0900000 RETURN 


—— 


EE lial 


;CURRENT TRACK NUMBER 
>SDI INTERCONNECT 


;RECIRCULATION ADDRESS 
E-F ORMAT 


ANY PROBLEMS ?? 
“NO -REDO CHECK PASS 
> INCREMENT IT 
; DONE ALL RETRIES ?. 

- ERROR 

REIN NIT 
; DRIVE CLEAR 

;RE-SEEK AND GROUP SELECT 
ZRETRY FORMAT 
;CLEAR RETRY ay 


RE-CYCLE CHECK 
sRESTORE CHARACTERISTICS PTR 


SEQ 0066 


ee - 


DATA F 
| DBN/X 


i 
| 
! 
| 
| 
| 
| 


oe 


WWWWIAIPIPIPIPINININININ 2 eS eS Oe ee ee 


AOBW OO DONOUE WR OO VOANOA MEWUD (OVO NAUVEWIN -OCOOONAVES WN g 


PEERSRE PEER ERERER ERE 


L 


i 


F 


23 


SERS 


BOSS SSS ESE E EERE 


° 
R 
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oO 
x 
—_— 3 — — 
DE EE EE WWAWMUNNNIN BOS BOOS 


> 
W—NOUW Oo NUWNRONUTS 


S 
RRONES 


OOWO 


Oo NVIW— © 


er eee 


MW 
3Ss 


RRARRAREES 


o--——-Oo—- - Oo — 00 — 
LRGQRELGSSSPSRSRSLEASERS 
SSxoN EVVANESAVALNE CSN 
SK Soe UAUTNe WU &WNUIVIW -2 VIN NIWRIWAW OO VIG 


001127 001454 
006621 


007275 
001233 


001232 
000002 
007777 
120000 
140000 
000000 
000005 
004535 
000001 
000002 
013400 
001112 


001234 
001231 


001231 
007275 


007275 


001232 


000003 
001232 
001454 


“TIS s Be Be Sa Be 


IXIT: 


MORE : 


FKIP2: 


FKIP1: 


REDO: 
FKP1: 


FKIP10: 


———— nnd 
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T OVERLAY (F1) 


CONSTRUCT THE READ COMMAND TABLE 


SECTRK,SECCNT 
#CMDBUF ,RO 
#IMAGE ,R5 
SKPCNT ,R3 

R3 »R5 
R5,STARIT 
2(R5) ,R3 


A#RDLEN,RO 


FKIP10 
#IMLEN,RS5 
R5,STARIT 


; INIT COUNTER 
BUFFER 


; COMMAND 

:POINT TO TRACK IMAGE 

:GET STARTING OFFSET (TUNED) 
:POINT TO FIRST ENTRY 

:MARK STARTING ADDRESS 

:SET UP FOR HSR CODE COMPARE 
: JSOLATE HI 4 BITS(HDR CODE) 
;GOOD XBN ? 

:YES - MARK AS GOOD TO CHECK 
;GOOD DBN ? 

>YES — MARK AS GOOD TO CHECK 
>CLEAR FOR STORE 

: STORE AS BAD SECTOR FLAG 
sPOINT PAST BLOCK 

:;SKIP GOOD MARK 

sLOAD ADDRESS OF he BUFFER 


;LOAD SDI READ COMMAND 

:SET IN CURRENT TRACK NUMBER 
; STORE IN BLOCK 

;SAVE PTR TO IMAGE BLK ENTRY 
sADD TO GET NEXT SECTOR 

;SEE IF HAVE TO LOOP BACK TO TOP 
sNEED TO RESET 

sNO NEED — JUST CONTINUE 

; SUBTRACT TO GET LOOP AMOUNT 
sAND ADD OFFSET 

;SKIP ZERO CONDITION 

>If ZERO SIMPLY MOVE TO FRONT 
;AT BEGINNING ADDRESS ? 

:NO - JUST CONTINUE , 
sELSE POINT TO NEXT ENTRY 
7MAKE IT NEW STARTING ADDRESS 
; DECREMENT 

;NO - DO NEXT SECTOR 


SEQ 0067 


acessories ae eee DL = < ~_— 
ee 
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nae 


DBN/XBN TRACK FORMAT OVERLAY (G7) 


papsaoseees 
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000600 
000010 


005567 
001113 
002002 
001223 
001110 
000001 
170000 
001111 


001501 
001237 


000002 
001114 


170000 
001462 


000600 


001501 
001256 


001153 
001454 


001217 
001217 


001217 


001217 


001225 


001217 


DXTRK: 


TKIP1: 
TKIP2: 


TKIP?: 


TKIP3: 


TKIP4: 
TKIP10: 


.SBTTL DBN/XBN TRACK FORMAT OVERLAY (G7) 


SET UP TRACK FORMAT 


DMOVLY 
MOV 


G7,START 

#G7, CUROVL 
SECTRK,SECCNT 
BADPBN .R2 
#IMAGE ,R5 
A#MANU+DLL FLAG 
TKIP2 

#DBN, FLAG 
TKIP1 

DPBN 

TKIP2 


XPBN 

#GDBLK,R3 

R3,(R5)+ 
URBN,R 


R3,(R5)+ 
ABSTGS+FCTEMT.FLAG 
TKIP 


COUNT 

FCNT | 
TKIP7/ 
AFCTEMT ,FLAG 
CURBN+1 ,R3 
#HD.CLR,RS 


CURBN+1 R53 
#HD.CLR,R5 
HD.CUR,R1 
R1,R 
R3,(R5)+ 


CURBN 
AMANU+DLL FLAG 
SKIP5 


FCTCNT 


sSEE IF 


;GET CVERLAY INDICATOR 
;MOVE SECTOR COUNT INTO R3 
;MOVE PTR TO BAD LIST INTO R2 
;POINT TO FORMAT TRACK IMAGE 
FCT AVAILABLE 
;NO - SKIP PBN COMPUTATION 
:DO DBN AREA ?7 
; XBN AREA 
;COMPUTE PBN FOR STARTING DBN 
; SKIP a COMPUTATI 


EY EQUAL 
;NO ~- SKIP REST 


IS FCT AVAILABLE AND NON-EMPTY ? 
sNO - CONSIDER GOOD 


OF COMPARE 


“GET HIGH ORDER BAD 


:CLEAR HEADER FOR COMPARE 


sEQUAL ? 


NO - MARK AS GOOD 


“DECREMENT IT 
“DEC IT 


: E 
:AND STORE IN IMAGE BLOCK 
:MOVE PTR TO NEXT BAD BLOCK 


:SKIP GOOD MARKING 


;HI ORDER BLOCK 


;CLEAR HEADER CODE 


:GET CURRENT HEADER CODE(XBN OR DBN- 
;SET TQ GOOD HEADER CODE 
;AND STORE IN IMAGE BLOCK 


;NO 
; INCREMENT IT 
:GET PBN COUNT 


;IF NOT DONE SK] 


“GET NEXT 8LOCK 


p 
NUMBER 


N 
NUM AND HDR CODE 


SEG 0068 
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es 


OBN/XBN TRACK FORMAT OVERLAY (G7) 
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001454 


000003 
040000 
001463 


001052 
000011 


177400 
007275 
001332 


000736 
000757 


001127 
001127 
000003 
000737 
000736 
001231 
001332 
100000 


001332 


000737 


000731 
000731 
000736 


SKIP5: 


DONE 1: 


TKIP11: 


TKIPS: 


TKIP8: 


TKIP9: 


TKIP6: 


MOV 
RE TURN 


DXF CP1 
S 


#IMLEN,R5 
(R5) RS 


#SCR,R3 
OFFS(R3) ,R2 
R2 

“la aaaas 


R2,TEMP 
TEMP+1 
CURGRP , DDUMMY 
DDUMMY +1 
ATEMP RS 
ADDUMMY ,RS 
DMUL 

SECTRK, DDUMMY 
TKIP9 

SECTRK ,DDUMMY 
TKIP8 

#IMLEN, TEMP 


sELSE PAGE IN NEW FCT BLOCK 


;DECREMENT IT 
:YUP - RETURN 
zNC - DO NEXT SECTOR 


7POINT TO FLAG OF LAST ENTRY 


;GET FLAG WORD 
7SET RECIRCULATION FLAG 
:STORE IT BACK 


“YES = NO OFFSET 
“POINT TO CHARACTERISTICS 
OUP OFFSET 


: YUP = HAN 


LE IT . 
ELSE START AT BEGINNING 


START 


;GET 
>SKIP OFFSET COMPUTATION 


sSTORE IT 
;FOR STORE 


;GET CURRENT GROUP 
;CLEAR HIGH WORD 
sFOR MUL 


“DITTO 


:MULTIPLY TO GET OFFSET FOR THIS GROUP 


SEQ 0069 


:1S TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 


zNO - ALL I 
sYES - SUB 
: CHECK AGAI 


S FINE 
TRACT TILL IT IS 
N 


:GET LENGTH OF IMAGE BLOCK 


:FOR STORE 


;FOR MUL 


; T 
:GET LENGTH TO OFFSET 


;GET RESUL 
:GET ADDRESS OF END OF IMAGE 
; SUBTRACT TO GET STARTING LOCATION 


:STORE IT 


T 


:GET BUFF POINTER 
>SIGNAL AS LAST 
>STORE IT BACK 


— ~~ oe ae 


cece ste CC LL LL LL LA LL LLL LLL LLL LL, LL LLL LLL LL LLL LL — 
_-—— a 


—- ee oe 


a eee ee ee 


- 6 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 38 
OBN/XBN TRACK FORMAT OVERLAY 37) 


BNO Mw 


MEWNM -O OE NAWEWN OW” 


MINS) @ SS es ee 


SRRUSASS a Ne 


S2S8eN 
S388333s 
on 


Peeters 


© 
oO 


Ww 
™ 


=) 
oO 
APWeNS > 


2999 
retoto 
WANA AS 
¥ 


Sueueeer 
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104300 


000000 


001137 


000736 


001140 000737 
000736 


001133 
001135 
001113 


000001 
001340 
001110 


001133 
001134 
000736 
001135 


001113— 


000001 


001111 


000736 
000737 


Hts Be Ba Be Be Be Be 


COMPUTE PBN FROM GIVEN DBN 
RO -> CHARACTERISTICS BLOCK 


MOV 
RE TURN 


XBNSEC , TEMP 
XBNSEC+1, TEMP+1 


S7.DBN.R1 
(R4) , CURPBN 
R1,CURPBN+1 


COMPUTE PBN FROM GIVEN XBN 
RO -> CHARACTERISTICS BLOCK 


LBNLBN, TEMP 
LBNLBN+1, TEMP+1 


ST.XBN,R1 


(RS), CURPBN 


R1,CURPBN+1 


;GET NUMBER OF SECTORS IN XBN AREA 


:GET HI ORDER 


;POINT R4& AT TEMP AREA 
;POINT AT NUM OF LBN‘S IN LBN AREA 


;ADD 

:POINT TO NUM OF RBN'S IN LBN AREA 
;ADD TO GET SECTORS IN LBN + XBN AREA 
;POINT TO CURRENT BLOCK NUMBER: DBN) 


:GET RELATIVE PBN 
;GET HIGH ORDER 


; SUBTRACT HIGH ORDER STARTING DBN 


:GET LO ORDER PBN 
: STORE HIGH ORDER 


>GET NUMBER OF LBN’S IN LBN AREA 


;GET HIGH ORDER 


sPOINT R4 TO TEMP AREA 

;POINT R3 AT RSN'S IN LBN AREA 

;ADD TO GET TOTAL SECTORS IN LBN AREA 
;POINT R3 AT CURRENT a NUMBER 


sADD TO GET RELATIVE 
;GET HIGH ORDER 


; SUBTRACT HIGH ORDER STARTING XBN 
;GET LO ORDER OF PBN 


; SAVE HIGH ORDER 


SEQ 0070 


ee = ee — = - 
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ORN/KBN TRACK FORMAT OVERLAY (G7) , 


1 : 
¢ -PAGE IN NEW FCT BLOCK 
4 003370 DXFCP1: PUSH RO 
5 377 104201 000033 MOV #G62,R1 :DLL OVERLAY 
$ 373 022444 ' CALL PAGE “EXECUTE OVERLAY 
The 104200 000200 001501 MOV #128., COUNT :FOR INIT 
@ 003377 104200 005152 001225 MOV #PBNBUF , BADPBN -FOR POINTER RESET 
9 00 O PoP RO “RESTORE RO 
10 003403 O00000 RE TURN * RETURN 


EE OT 


ee Pe 


co 


S 


888888ssssss 


WR — 0 DONO NEW - O DONO ME WN HO OONOAMEwn 
SSSS8Ss5ee 


yee eed oe tke eta garg ee a a a ee oe 


ou 
SSssssso 


NUNS 
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H 6 
OR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 40 SEQ 0072 
ING OVERLAY (F2) 


_SBTTL LBN FORMATTING OVERLAY (F2) 
: “BN FORMATTING | 


3404 DMOVLY F2.,START 

3047 104200 000003 001153 LFORM: MOV #F2,CUROVL sOVERLAY 42 

3052 102200 000001 601217 BIT #FCTAVL FLAG >FCT AVAILA4BLE ? 

3055 013061 BEQ XSKIP1 :NO - SKIP SET UP 

3056 104201 000036 MOV #G63,R1 sOVERLAY TO GET RIGHT FCT BLOCK 
3060 022444 CALL PAGE sEXECUTE IT 

3061 104207 001052 XSKIP1: MOV #SCR,RO :POINT TO CHARACTERISTICS BLOCK 
3063 104300 001143 001125 MOV LBNCYL,CYLNUM >GET LO ORDER CYLINDER COUNT 
3066 104300 001143 001460 MOV LBNCYL,CNTCYL :MAKE LO ORDER COUNT 

3071 104300 001144 001126 MOV LBNCYL+1,CYLNUM+1 :GET HIGH ORDER 

3074 104300 001144 001461 MOV LBNCYL+1,CNTCYL+1 :STORE IT 

3077 103200 170000 001461 BIC #HD.CLR,CNTCYL+1 >CLEAR STARTING CYLINDER BITS 
3102 104204 001125 MOV #CYLNUM,R4 : SUBTRACT TO GET CYLINDER NUMBER 
3104 104203 001466 MOV MONE,RS :1 = BECAUSE START AT 0 

3106 021524 CALL DSUB :DO SUBTRACT 

3107 104300 001475 001255 MOV TOTRCT ,RCTTOT -GET TOTAL RCT LBN‘S 

3112 104201 000052 MOV #G8,R1 -POINT TO OVERLAY 

3114 022444 CALL PAGE : COMPUTE VARIOUS CONSTANTS 
3115 104207 001052 XSLEEK: MOV #SCR,RO :POINT TO CHARACTERISTICS 

3117 104673 000002 MOV GRPCYL (RO) ,R3 :GET GROUPS/CYLINDER 

3121 103203 177400 BIC #HIBYTE,R3 >CLEAR OUT GARBAGE 

3123 104030 001464 MOV R3,GRPCNT *USE AS COUNTER 

3125 104030 001463 MOV R3,CURGRP : GROUP NUMBER 

3127 117400 001463 DEC CURGRP >DECREMENT TO GET ACTUAL NUMBER 
3131 104300 001125 001076 XSLEK2: MOV CYLNUM, ISEEK+1 -GET CURRENT CYLINDER NUMBER 
3134 104300 001126 001077 ~~ MOV CYLNUM+1, ISEEK+2 :GET HIGH ORDER 

3137 104300 0014635 001100 MOV CURGRP , ISEEK+3 :LOAD GROUP NUMBER 

3142 022251 CALL SEEK >DO THE SEEK 

3143 115001 TST R1 :ANY ERROR ? 

3144 073435 BM] SEEKER :YUP - CUT OUT 

3145 104207 001052 MOV #SCR,RO -POINT TO CHARACTERISTICS 

3147 104673 000003 MOV TRKGRP (RO) .R3 :GET TRACKS/GROUP 

3151 103203 177400 BIC #HIBYTE.R3 :CLEAR OUT GARBAGE 

3153 1046030 001465 MOV R3,TRKCNT :MAKE COUNTER 

3155 117403 DEC R3 :WANT LAST TRACK NUMBER 

3156 104030 001112 MOV R3,CURTRK -MAKE CURRENT TRACK 0 

3160 104201 000025 XSKIP3: MOV #F8,R1 > TRACK SET UP OVERLAY 

3162 022444 CALL ‘ PAGE -SET UP TRACK FORMAT 

3163 104304 001334 XSKIP2: MOV DPREA,R4 -GET DATA PREAMBLE LENGTH 

3165 104303 001333 MOV HPREA,R3 -GET HEADER PREAMBLE LENGTH 
3167 104307 001332 MOV IMSTAR,RO :POINT TO TRACK IMAGE START PCINT 
3171 104301 001112 MOV CURTRK,R1 = TRACK TO FORMAT. 

3173 104302 000740 MOV UNIT ,R2 >SDI INTERCONNECT 

3175 104205 007275 MOV #IMAGE ,R5 -RECIRCULATION ADDRESS 

3177 060001 KFC FORMAT -DO FORMAT 

3200 115001 TST R1 :ANY ERROR ? 

3201 013214 BEQ LSKIP4 >NO - DO CHECK PASS 

3202 115400 000717 INC UN. ERI : INCREMENT IT 

3204 106300 001502 000777 CMP RETRY,UN.ERI -DONE ALL RETRIES ? 

3207 073431 BM] FORERR :YUP - ERROR 

3210 022371 CALL INI TPT :REINIT 
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.BN FORMATT OVERLAY 
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SRSRRSVRRU VIER 
SISISLSSuSSaSSSv0eq 
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001254 
001224 


020000 


020000 
002000 


000022 


000014 
001112 


001252 
001217 


001217 
001217 


LSKIPS4: 


XSKIP4: 


XSKIP6: MOV 


XSKIPS5: 
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BIsK ) MACRO K04.00 23-JUL-81 15:08:54 PAGE 40-1 


CLEAR 
SEEK 
XSKIP2 
UN. ERI 
EMAX ,R1 
REVCNT ,R1 
SECTRK,R1 
XSKIP4 


REVCNT 
ERRBUF ,ERPNT 


LCHEC 
MINIRCT,FLAG 
XSKIP5 
#INIRCT,FLAG 
+ lig 


CURTRK 
#HOLDBN ,R4 
#SCR,RO 
LBNTRK (RO) ,R3 


DS 

HOLDBN , CURBN 
HOLDBN+1 , CURBN+1 
RBNTRK (RO) ,R3 
veh dp ay 


DSUB 
HOLRBN , CURRBN 


XSLEK2 
an gk 


DSUB 

UPDATE 
#DMBUF ,RO 
CYLMSG,R3 
R3,(RO) 
CYLMSG+1,R3 
R3,1(RO) 


SEQ 0075 


sDRIVE CLEAR 

>RE-SEEK AND GROUP SELECT 
sNOPE = RETRY 

sFOR STORE 

:GET MAX REVECTORS 

> SUBTRACT CURRENT ENTRIES 
:ENOUGH LEFT FOR WHOLE TRACK ?? 
:YES - CONTINUE 

>SIGNAL RCT UPDATE OVERLAY 
;PAGE IT IN 

sFOR STORE 

sFOR RESET 

:D0 CHECK PASS 

:TIME TO INIT RCT ? 


NOPE 
sREST FLAG 


:DOING BEST GUESS ? 

:NO - GO ALL THE WAY 

:RCT INIT OVERLAY 
sEXECUTE IT 

:SKIP OTHER 

:DO FCT-=>RCT AND INIT 
sEXECUTE IT 

:DECREMENT IT 

:GET STARTING BLOCK NUMBER 
-POINT TO CHARACTERISTICS 
;GET LBN/TRACK 

Bo gs BYTE 


“FOR STORE 
* LBN/ TRACK 
-GET STARTING LBN FOR NEW TRACK 


;GET RBN/TRACK 
;CLERA a GARBAGE 


“RBN'S/TRACK 
GET STARTING. RBN FOR NEW TRACK 


;DECREMENT GROUP NUMBER 
;DECREMENT IT 

;NO - DO NEXT GROUP 

;GET READY TO DEC CYLINDER CNi 
: CONSTANT WORD OF 1 

:DECREMENT IT 

; UPDATE PROGRESS INDICATOR 
:POINT TO MAINT BUFFER 

:GET CYLINDER MSG FLAG 

;STORE IT 


ES AS A 


EE TT ar 


ATA FILE FOR PDP=-11 UDA 
BN FORMATTING OVERLAY (F2 
115 003361 104302 001125 
120 003363 100673 000003 
121 003365 104303 001126 
122 003367 100673 0006002 
123 003371 022536 
124 ett 104204 001125 
125 003374 104203 001466 
126 003376 021524 
127 003377 104304 001460 
128 003401 0531715 
129 003402 104504 001461 
130 003404 053115 
131 003405 104303 001254 
13 003407 013416 
133 003410 101200 040000 
134 003413 104201 000011 
135 003415 022444 
136 003416 104303 001312 
137 003420 104304 001453 
138 003422 105043 
139 003423 104030 001312 
140 003425 104201 000041 
141 003427 022412 
142 003430 000000 
145 003431 104012 
144 003432 104201 000014 
145 003434 003441 
146 003435 104302 001125 
147 003437 104201 000012 
148 003441 022552 


001217 


LSKIP5: 


XDONE : 


FORERR: 


SEEKER: 
M 


LFERR: 
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CYLNUM,R3 
R3, 3(RO) 
CYLNUM+1,R3 


CNTCYL,R4 
XSLEEK 
CNTCYL+1,R4 
XSLEEK 
REVCNT,R3 
XDONE 
AFINI,FLAG 
#F4,RI 

PAGE 


LBNBAD ,R3 
ERRCNT ,R4 


ERRMNT 


:GET LOW ORDER CYLINDER NUMBER 
sPUT IN MESSAGE 

:GET HIGH ORDER 

sSTORE IT 

>LET HOST KNOW WE'RE ALIVE 

:GET CURRENT CYLINDER NUMBER 
:FOR DECREMENT 

:DECREMENT FOR NEW CYLINDER NUM 
; LOW we ZERO ? 


sNO - CONTINUE 

sHIGH ORDER ZERO ? 

:NO - CONTINUE 

aan LEFTOVER REVECTORS ?- 


; NOPE 

;SIGNAL NOT TO SEEK 
>SIGNAL RCT UPDATE OVERLAY 
;UPDATE IT 

:GET BAD BLOCKS FROM FCT 
7GET CHECK PASS BAD 

;ADD TO GET TOTAL 

; STORE BACK 

:RCT CLEANUP 

:GET NEXT OVERLAY 


7XFC ERROR CODE 
; SIGNAL LBN FORMAT ERROR 


:CYLINDER FAILED ON 
: SEEK ERROR 
ERROR RETURN 


SEQ 0074 


——aee— oe eee we 


A FILE FOR 
FORMATTING 
1 
r 
5 
“ 
5 
6 003442 
? 003444 
8 eS Oe 
9 003451 
10 003452 
2 Be 
5 Suse 
14 003464 
3 See 
17 003475 
18 003476 
19 003500 
20 003501 
21 ie 
$ 003506 
$ 003510 
4 ae 1§ 
25 00351 
26 003515 
27 005517 
28 Oe ReSs 
$3 003523 
0 OO 5e59 
31 003527 
6 003531 
33 003533 
34 0035355 
35 003537 
36 003541 
37 003543 
38 pe aeee 
39 003545 
40 003546 
41 003550 
42 003551 
43 00355 
44 eee 
45 00355 
46 003555 
47 003556 
48 Rees 
49 003561 
50 003563 
51 003564 
52 it Fass 
53 003570 
54 003572 
55 003574 
56 003577 
5? 003602 


———aee = — 
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OVERLAY (F2) 


SPRRRSRLLSRRERRRUSEE 
SAtaSSeeEE SSSR SSS 


SaSSs 


oO 
om 
SO NONVINVUINUIN 


™ 
NW WN 


— 3 3 3 — 3 SS 2 I I IO AI 
WINWANANA 


SSREGGESCURER cmSPun 
SSSSSSSessRen 3S 


000003 


001445 


000004 


001217 


001455 
001456 
001457 


001455 


001456 
001457 


001454 


001505 
001220 


LCHEC: 


LSKIP: 


LSKIP2: 
LSKIP1: 


LAGAIN: 


READS: 


LERR: 


LNOERR: 


CHECK PASS 

CLR ERR 

CLR ERFLAG 

BIT #BSTGS.FLAG 
BNE LSKIP 

MOV #1,N 

MOV #5,N1 

MOV N1,NN1 

BR LSKIP2 

MOV 3,N 

MOV #20..N1 

MOV 1,NN1 

CALL LFIXIT 

MOV 17 ,Re 

XFC iP 

MOV SECTRK,SECCNT 
MOV ACMDBUF , 

MOV ARDBLK, 

MOV RB .BUF (R5) .R3 
BEQ LNOERR 

MOV R3,RwW.BUF (RO) 
MOV RB.LOW(R5S) .R3 
MOV R3,RW.LOW(RO) 
MOV RB.HI(R5) ,R3 
MOV R3,RW.HI (RO) 
MOV . CMD(R5) ,R3 
MOV R3,RW.CMD(RO) 
MOV AHSLIM-1 ,R3 
MOV R3,,RW.DUM(RO) 
MOV #<BIT15!RDBLK>,RO 
MOV #RDCMD ,R3 
MOV R3,RW.STAT CRO) 
XFC READ 

TST R1 

BNE LERR 

MOV ANUM ,RO 

XFC CMPDAT 

TST R1 

BEQ LNOERR 

MOV RB. IM(R5) ,R3 
MOV (R3) ,R4 

BIT #BD ,R4 

BNE LNOERR 

BIS #BD ,R4 

MOV R4,(R3) 

INC RTYCNT 

INC ERR 

ADD #RDLEN,RS5S 

CLR TMPTRY 

MOV RECOV,REC TMP 
Bic #RTYDN,FLAG1 
DEC SECCNT 


7FOR ERROR COUNT RESET 
;CLEAR REFORMAT FLAG 


;BEST GUESS ? 


“YES - DO EXTENSIVE READ 


:SET UP FOR STORE 
;SET UP 


-SAVE FOR LATER RESET 


“SKIP EXTENSIVE READ SETUP 
READ 


sEXTENSIVE REGULAR 
sEXTENSIVE ERROR READS 
:SAVE FOR LATER RESET 


sEXECUTE IT 


;GET SDI os 


;WAIT FOR 


PU 
;LOAD SECTORS/ TRACK 


sPOINT TO COMMAND 


:POINT TO READ COMMAND BLOCK 


;BUFFER PTR ZERO 


“SECTOR BAD - SKIP CHECKS 
ELSE STORE IN COMMAND BLOCK 
“LOAD LOW ORDER SECTOR NUMBER 


BUFFER 


;STORE IN COMMAND BLOC 


K 
;LOAD HIGH ORDER BLOCK NUMBER 


;STORE IN COMMAND 


:GET READ COMMAND AND TRACK NUMBER 
; BLOCK 
SDI BLOCK 


;STORE IN COMMADN 
sPOINTER TO DUMMY 


BLOCK 


;STORE IN READ BLOC 


K 
MAKE SURE POINTING AT BLOCK 


“RESET STATUS POINTER 


;YES - UH OH 
:POINT TO COMPARE 
:DO0 DATA COMPARE 


BLOCK 


;ANY ERROR IN COMPARE ? 


;NOPE - CONTINUE 


LOOP 


;GET IMAGE POINTER 


;GET BUFFER POINT 
;ALREADY BEEN HER 
;YUP ~ DON’T COUN 


7 1N 
: INCREMENT ERROR 


COUNT 
:POINT TO NEXT READ CMD BLOCK 


:FOR RESET 
:GET RECOVERY LEV 
;CLEAR RETRY DONE 


ER WORD 
e 7? 
T AGAIN 


ELS 
FLAG 


;DECREMENT COUNTER 


SEQ 0075 


———————————— — 


' 


DATA FILE FOR PDP=11 UDA 
|LBN FORMATTING OVERLAY ( 


| 58 003604 053506 


$9 003605 117400 
003607 653476 
1 003610 115000 
62 003612 014360 
| 63 003613 104204 
003615 104143 
| 65 003616 102203 
| 66 003620 014230 
67 003621 10464 3 
68 003623 103203 
69 003625 106203 
70 003627 013635 
71 003630 106203 
72 003632 054250 
7% 003633 104302 
7% 003635 060012 
75 003636 104207 
76 003640 104203 
7? 003642 100673 
78 003644 104643 
79 6 100673 
BO 003650 104643 
81 003652 100673 
Be 003654 10420 
83 003656 10067 
84 003660 10420 
B5 003662 10130 
86 003664 10067 
87 00 10420 
88 003670 10420 
89 003672 10017 
90 003678 10430 
91 003675 06000 
92 003676 115001 
9% 003677 053715 
24 008700 104173 
95 003701 102203 
9% 003703 013707 
97 003704 023027 
98 003705 115001 
99 903706 073720 
100 70 
101 003707 104207 
102 003711 060006 
103 003712 115001 
194 003718 014220 
195 008714 903720 
Bee ies 
oe bo8o5s ioeeee 
109 003704 115400 
110 003726 0041 
111 008787 104648 
112 003731 103203 
113 003738 106203 
114 003735 014034 


POMIWIA NANA 


_— ee ee ee + 


001455 
001226 
007275 
020000 


000002 
007777 
000000 


100000 
000740 


010000 


001443 


000040 
000100 


001313 


000002 
007777 
060000 


001220 
001217 


LHERE : 


LSKIP8: 


KEADS : 


LSKIP6: 


LER3: 
LER1: 


LER2: 


sew eee — — eee ee 
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a 
LSKIP1 
ERR 


LDONE 

# IMAGE .R4 
(R4) ,R3 
#BD .R3 


LSKIP7 
FT.HI(R4) RS 


(R4), 
R3,RW.HI (RO) 
#RDBUF ,R3 
R3,RW.BUF (RO) 
#RWCMD ,R3 

URTRK ,R3 


C ‘ 
R3,RW.CMD(RO) 
#<BIT15!RDBLK>,RO 


LER 
#BDHD , FLAG] 
co 


LE 

RCTBAD 
BDIRCT 
FT.HI(R4),R3 
#L0,R35 

#HD .RBN,R5 
BRBN 


zNO - DO NEXT SECTOR 

;DECREMENT COUNTER 

3NO - REPEAT TRACK READ AND COMPARE 
ANY ERRORS ON FIRST PASS ? 

7NO - ALL DONE CHECK PASS 

;POINT TO IMAGE BUFFER 

;GET BUFFER POINTER WOR 

:I1S IT BAD ? 


3NO - SKIP IT 
;GET HI ORDER BLOCK NUM AND HDR CODE 
LOW ER 


T AN RBN ??? 
:NOPE = ALREADY PROCESSED SKIP IT 
:SDI ee ee aM 


;WAIT FOR PULSE 

;PREPARE FOR READ SECTORS 
:POINTER TO DUMMY SDI BLOCK 
:STORE IN COMMAND BLOCK 


; R CMD BLOCK 
;LOAD ADDRESS OF DATA BUFFER 
7° IN COMMAND BUFFER 
;LOAD SDI READ COMMAND 

:SET CURRENT HEAD ADDRESS IN COMMAND 
; STORE BACK 

;MAKE SURE POINTING AT BLOCK 

;MARK AS ONLY REQUEST 


:YES - CONSIDER BAD 

;LOAD ECC ERROR INDICATOR FOR TEST 
; TEST FOR ECC ERROR 

sNO - CHECK EDC 

sFIND OUT HOW MANY SYMBOLS IN ERROR 


:TOO MANY ? 
;YUP - CONSIDER BAD 
:POINT TO COMPARE BLOCK 


:DO0 DATA COMPARE 
7 ANY ny IN COMPARE ? 


3NO ERROR 

:SKIP BAD HEADER FLAGGING 

;FLAG AS BAD HEADER 

SIN RET TT? 

;NOPE ~ SKIP NEXT STUFF 

; INC BAD COUNTER 

7 THEN MARK BAD 

:GET HI Sag Sele NUM AND HDR CODE 


SEQ 0076 


A EL OT 7 -——- 


ATA FILE FOR 

BN FORMATTING 
115 003736 
116 003740 
117 003742 
118 003745 
119 003746 
120 00 738 
121 00375 
\$¢ peter g 
123 003760 
124 003762 
125 003765 
126 003766 
127 003770 
128 00377 
129 00377 
130 003775 
131 003777 
134 004001 
1345 004003 
134 004005 
135 004006 
136 004007 
137 004010 
138 004011 
139 004012 
140 004014 
141 004016 
142 seh 
143 004021 
144 004023 
145 004025 
be ees 
147 0064030 
148 094033 
150 904036 
3) Sa 
153 004044 
154 sited 
155 05 
156 B26 
157 05 
158 055 
159 004056 
160 004060 
161 sobs 
162 064 
163 nbs 
164 0040 
165 004072 
166 004075 
167 004076 
168 004100 
169 102 
170 104 
171 004106 


25 


LAY 
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pecuuneuee seen essauset 


2 2a ss a 2 =-2O OV | 
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ONOOMMOOO 


— 3 OP SS Ss =O 
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ISESNRSSERRRY s 
oe ee 
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MOWNDNNTUIN 


a SoC 


— Os te 
PAR EAD 


SSSaS0SSe90S09 

— 
SSSSSAPRSSOREGE 

ovr WNOWOWOOWFOWV! 
ROMIMAMAUIUIO VIPOPIPIPOP & WOMNNWOO 


So 
A 


1 UDA 


(F2 


001453 
001000 


007275 
000002 
007777 
050000 
000003 
000002 
170000 
030000 
000002 
005567 
000000 
007777 
000000 
001252 
000002 


000001 
007777 


001217 


001217 
001220 


000731 


001220 


001217 


000014 


RPT1: 


BRBN: 


5$: 


6$: 


8$: 





nn 
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FT.HI(R4),R3 
#HD.CLR,R3 
#PRIM, FLAG 


SND 

R3,DOUMMY +1 
#PRIM,FLAG 
#RPRIM,FLAG1 

#HD .PRV,R3 
R3,FT.HI(R4) 
— 


APRMBUF ,R5 
FT.BUF (R4) ,R2 
#BUFMSK ,R2 
R5,Re 
R2,F 7 .BUF (R4) 
APRMBUF ,R2 
CEDC 
R3,RW.EDC (R2) 
#BDHD ,FLAG1 
LSND 

ERRCNT 
APRIM,FLAG 
7$ 


#IMAGE ,R3 
FT.HI(R3) ,R2 


#IMLEN,RS 


5$ 

FT.HI(R3) .R2 
#HD.CLR,R2 
#HD .REV.R2 
R2.FT.HI(R3) 
#G 


DBLK.R 
FT .BUF (R3) ,R5 
A#BUFMSK FS 
R2.R5 

R5 FT .BUF (R35) 
ERPNIT, 
#ERLEN,RS 
1(R5),R2 
#LO,R2 


SEQ 0077 


;RELOAD HEADER 
;CLEAR THE HEADER 
zANY PRIMARY YET ? 
>YUP = THIS ONE SECONDARY 
;STORE HIGH ORDER FOR RBN COMPUTATION 
7SET PRIMARY FLAG 
;SET GOOD RBN EDC NEEDED 
PRIMARY 


>SAVE IMAGE POINTER 

;MAKE SURE POINT TO CHAR BLOCK 
;POINT TO BLOCK NUMBER 

7GET PRIMARY RBN NUMBER 

;GET NUMBER OF REVECTORED RBN 
;GET HIGH ORDER 

:SET IN RBN HEADER CODE 

;USE RDBUF TO HOLD 128 COPIES OF RBN 
;COUNT OF REPLICATED RBN*S 
;STORE A COPY 

;AND HIGH ORDER 

;DECREMENT COUNTER - DONE ? 
:NO - STORE ANOTHER COPY 
RESTORE IMAGE POINTER 

;POINi TO GEGINNING OF BUFFER 
:GET BUFFER POINTER 


s;STORE IT BACK 

:FOR EDC COMPUTATION 

: COMPUTE IT 

:STORE IT 

:WAN'T TO STAY PRIMARY 

:BRANCH AROUND SECONDARY 

:DEC ERR CNT SO PRIMARY STATS WILL BE RIGHT 
:1S THERE A PRIMARY ON THIS TRACK ? 


:YES - DONE 

-NO - POINT TO NEXT ENTRY 
: CHECK NEXT ENTRY 

:RESET TO HI ORDER 

:CLEAR HEADER 

-MARK AS SECONDARY 


;STORE BACK 
:POINT TO GOOD 


7GET REVECTOR POINTER 

;LOOK FOR PRIMARY BACKWARDS 
;GET HIGH ORDER 

:CLEAR LO STUFF 


a PS 


o 
b> 
— 
> 
wn 
— 
om 
mn 


>. 
. 
a ee ee ee ee Se ee en a ae a ee Eee eT ~" 


—_— es eee 


FOR PDP-11 UDA 

ORMATTING OVERLAY ( 

72 904110 106202 050000 
73 O04112 054102 

74 004113 104652 1 
75 006115 103202 170000 
76 004117 101202 030000 
77 004121 100652 000001 
78 004123 115400 001472 
79 004125 103200 000004 
80 004130 103200 000040 
81 004133 101200 001000 
82 004156 104645 900002 
83 004140 103203 170000 
B4 004142 101203 110000 
85 004144 100643 000002 
B6 004146 102200 000100 
87 004151 054165 

88 004152 004225 

89 004153 102200 000040 
90 004156 054136 

91 004157 101203 030000 
92 004161 100643 000002 
93 004163 115400 001472 
94 004165 115400 001221 
95 004167 104303 001252 
96 004171 104642 000001 
97 004173 100232 

98 004174 104642 000002 
199 004176 102200 000040 
200 004201 014210 
201 004202 103202 170000 
202 004204 101202 930000 
203 904206 119400 001472 
204 004210 100232 
505 004211 104030 001252 
206 004215 115400 001254 
07 004215 115400 001455 
208 004217 004223 
209 0 117400 001456 
210 2 1033619 
211 104300 001457 
21 117400 001226 
213 004230 103200 000040 
214 105204 000003 
R15 904235 113000 001226 
416 ? 053615 
217 004249 11000 001221 
18 004242 014360 
219 004243 104207 06621 
220 004245 104301 001450 
221 004047 100871 

22 004250 104204 000125 
22 52 104301 001448 
226 4 104302 001446 
525 004256 104303 001447 
226 004260 100271 
227 O04261 100872 
228 004262 100273 


a 


as 


ts 
‘ 


007220 


001456 
001220 


7$: 


BDIRCT: 


SND: 


LSND: 


LSKIP9: 


LOK: 


“Lak IP3: 
LSKIP7: 
A 


LOVER: 


CMP 


Es 
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#HD .PRV,R2 


N 
#RPRIM,FLAG1 
#BDHD ,FLAG1 
#PRIM.FLAG 
FT.HI(R4) R3 
wD. CLRRS 


MHD. P 
R3,FT.HIC(R4) 
MREVECT,FLAG 
SND 


LSKIP3 

ABDHD ,FLAG1 
BDIRCT 

#HD .REV RS 
R3,FT.HIC(R4) 
SNDCNT 


ERFLAG 


R2,(R 
FT.HI(R4) ,R2 
#BDHD ,FLAG1 
LSKIP9 ! 
#MHD.CLR,R2 

#HD .REV,R2 
SNDCNT 

R2,(R3)+ 
R3,ERPNT 
REVCNT ; 
ERRCNT 

eae 


N 
LHERE 
NN1 NI 


ERR 
ABDHD ,FLAG1 
#IMLEN,R4 


R2, (RO) + 
R3,(RO)+ 


SEQ 0078 


:I1S IT THE PRIMARY ? 


3D G 

:CLEAR SO WILL PUT IN AS RBN 
:SET SO NONE WILL BE PRIMARY 
:RELOAD HEADER 

;CLEAR THE HEADER 

-MARK AS BAD 


;MARK AS 
;STORE BACK IN IMAGE 
;IN RET ? 


F : 

;NO - PUT IN TO REVECTOR 
;ELSE DO NEXT ENTRY 

;BAD HEADER ? 

;YUP - MARK AS BAD 

;MARK AS SECONDARY 
sai IN IMAGE 


:INC I 

:SET RE-FORMAT FLAG 

; STORE BACK 

;GET LOW ORDER BLOCK NUMBER 
;STORE FOR RCT UPDATE 

;GET HIGH ORDER 


;UP COUNTER OF BAD BLOCKS | 

:NO NEED TO RE-READ ANY MORE THIS SECTOR 
:DECREMENT COUNTER 

;NO - og Ay IN ERROR 


“NO - DO NEXT SECTOR 
“WERE THERE ANY BAD SECTORS FOUND 
sNOPE - E 


; DIAGNOSTIC WORD 

STORE IT 

;SET COUNTER OF TRIPLE WORDS 
: ATTERN 


; SECON 

: THIRD WORD OF PATTERN 
;STORE IT 

:STORE IT 

:STORE IT 


DATA FILE FOR 
LBN FORMATTING 
| 33 soi3ee 
«$39 Oocdes 
232 004267 
33 004270 
234 004273 
235 004274 
236 004276 
537 004 
238 004302 
5 004304 
as 004 307 
242 004511 
243 004312 
244 004314 
245 004316 
266 004517 
47 004321 
248 004323 
249 004325 
3 SR 
52> 002335 
253 004335 
254 004336 
55 004337 
256 004340 
257 004342 
258 004345 
259 004346 
260 004347 
261 004350 
26¢ 004355 
63 004354 
264 004355 
565 004357 
266 004360 
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001452 
000004 
007275 
005567 
000002 
007777 
060000 
000003 


090000 
007777 


007275 


000717 
001502 


001463 


000717 


001226 


000717 


001100 


LOVERS: 


LOVERS: 


LOVER2: 


LOVER1: 
LDONE : 


EE 


DEC 


RETURN 
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RS 

LOVER 

BADEDC ,R2 
R2,(RO)+ 
#RPRIM, FLAG) 
LOVER2 
#IMAGE ,R3 
#GDBLK,R5 
FT.HI(R3),R2 


.RBN,R2 
LOVERS 
#IMLEN,RS 
LOVERS 
FT ..BUF (R3) ,R2 
ABUFMSK ,R2 


R5,R2 
R2,FT.BUF (R3) 
DP R 


LOVER? 
UN.ERI 
RETRY,UN.ERI 
FORERR 
INI TPT 


CLEAR 
CURGRP, ISEEK+3 
SEEK 


LOVER2 
UN.ER] 
LCHEC 


sDECREMENT COUNTER 
;REPEAT TILL DONE 
sEDC oe (FORCED ERROR IND) 


STORE I 
;NEED GOOD RBN EDC ??? 


Oe a a 


NOP : EN 

*POINT TO IMAGE --- 

“POINT TO GOOD SLOCK —— 
>GET HI ORDER i 
CLEAR JUNK 

-IS IT THE PRIMARY ? 

:YUP = HANDLE IT 

*CHECK NEXT ENTRY 

: TRY AGAIN 

“GET BUFFER POINTER 


_ 3CLEAR ONLY BUFFER POINTER 


:SET IN NEW BUFFER POINTER 
;STORE IT 


:DATA PREAMBLE LENGTH 

sHEADER PREAMBLE LENGTH 
;POINT TO TRACK IMAGE START POINT 
>CURRENT TRACK NUMBER 

:SDI_ INTERCONNECT 

sRECIRCULATION ADDRESS 

;RE-F ORMAT 


:ANY PROBLEMS ?? 


; INCREMENT IT 

;DONE ALL RETRIES ? 
; YUP - ERROR 
;REINIT 

;DRIVE CLEAR 

; GROUP 


:G 

=RE-SEEK AND GROUP SELECT. 
“NOPE - RETRY 

“CLEAR RETRY COUNT 
=RE-CYCLE CHECK PASS 


} 


SEQ 0C74 
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1 001454 


006621 
607275 
001233 


001232 
000002 
007777 
000000 
060000 
000000 
000005 
004555 
000001 
000002 


007275 
001232 


000003 
001232 
001454 


L 


FIXIT: 


LMORE : 
FLKIP2: 


FLKIP1: 


LREDO: 
FLKP1: 


FKIPS: 


CONSTRUCT THE READ COMMAND TABLE 


ee 
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SECTRK,SECCNT 


_ #CMDBUF ,RO 


#IMAGE ,R5 
SKPCNT ,R3 


R3 

R3,RB.BUF (RO) 
#RDLEN,RO 
FLKIP1 

#RDBUF ,R5 


#IMLEN,R5 
R5,STARIT 
SECCNT 
LMORE 


: INIT COUNTER 


COMMAND BUFFER 


“POINT TO TRACK IMA 


GE 
:GET STARTING OFFSET (TUNED) 


D LBN ? 


:GO 
:YES - MARK AS GOOD TO CHECK 


;GOOD RBN ? 


:YES - MARK AS GOOD TO CHECK 
;CLEAR FOR STORE 


;STORE AS BAD 


SECTOR FLAs 


sPOINT TO NEXT BLOCK 


;SKIP GOOD MAR 


;LOAD ADDRESS 


K 
OF DATA BUFFER 


;LOAD SDI READ COMMAND 


“SET IN CURRENT TRACK NUMBER 


:STORE IN BLOCK 


;SAVE PTR TO IMAGE BLK ENTRY 


:ADD TO GET NEXT SECTOR 


;SEE IF HAVE TO LOOP BACK TO TOP 


sNEED TO RESET 

:NO NEED - JUST CONTINUE 

; SUBTRACT TO GET LOOP AMOUNT 
zsAND ADD OFFSET 

;SKIP ZERO CONDITION 


:1F ZERO SIMPLY MOVE TO FRONT 


;AT BEGINNING ADDRESS ? 
zNO - JUST CONTINUE 
sELSE POINT TO NEXT ENTRY 


:MAKE IT NEW STARTING ADDRESS 


;DECREMENT 


;NO - DO NEXT SECTOR 


SEG 0080 
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.SBTTL LBN FORMAT IMAGE SETUP OVERLAY (F8) 
DMOVLY F8,START , 


SET UP TRACK FORMAT 


Se Be Be 


000025 001153 LTRK: MOV #F8, CUROVL :GET OVERLAY OFFSET 
001052 Sy, MOV #SCR.RO “POINT TO CHARACTERISTICS BLOCK 
000011 MOV LBNTRK (RO) ,R3 “GET LBN'S/TRACK 
177400 BIC #HIBYTE,R3 “CLEAR HIGH BYTE 
001454 MOV R3,SECCNT “USE AS COUNTER 
001223 MOV BADPBN , R2 “POINT TO CURRENT BAD PBN ENTRY 
007275 MOV #IMAGE .RS | “POINT TO TRACK IMAGE BUFFER 
001723 001110 MOV HOL DPN, CURPBN “GET LOW RODER PBN 
001124 001111 MOV HOLDPN+1, CURPBN+1 “GET HIGH ORDER 
005567 MOV #GDBLK,R3 “POINT TO DATA BLOCK 
001451 MOV EDC,R4 “GET GOOD EDC 
000400 MOV R4 RW. EDC(R3) “STORE IN BUFFER 
001000 001217 BIC #PRIM, FLAG “CLEAR PRIMARY FLAG 
005567 LKIP2: MOV #GDBLK,R3 “POINT TO GOOD DATA BLOCK 
0 MOV R3,FT.BUF (RS) “STORE IN IMAGE BLOCK 
001113 MOV CURBN,R3 “GET LOW ORDER BLOCK NUMBER 
000001 MOV R3.FT.LOW(RS) “STORE IN IMAGE BLOCK 
000001 901217 BIT #F CTAVL, FLAG “IS FCT AVAILABLE ? 
BEQ LKIP3 “NO - ASSUME BLOCK GOOD 
000002 001217 BIT #F CTEMT FLAG “FCT EMPTY ? 
BNE LKIP3 “YUP = BLOCKIS GOOD 
001223 MOV BADPBN,,R2 “GET FCT POINTER 
MOV (R2) RI “GET LOW ORDER BAD PBN 
001110 CMP R1, CURPBN “ARE THEY EQUAL ? 
BNE LKIP3 “NO - SKIP REST OF COMPARE 
000001 MOV 1(R2),R1 “GET HIGH ORDER 
170000 BIC #HD.CLR,R1 “CLEAR THE HEADER 
001111 CMP P’ . CURPBN+1 “ARETHEY EQUAL ? 
BNE LKIP3 “NO - MUST BE GOOD 
001500 DEC PCNT “DECREMENT IT 
001237 DEC F CNT “DECREMENT FCT COUNT 
BNE LKIP12 “IF NON - ZERO SKIP FLAG SET 
000002 001217 ee BIS #FCTEMT FLAG “SET EMPTY FLAG 
L : 
000100 001217 BIT HREVECT, FLAG :IN RCT ? 
BNE 65: “NO - SKIP RCT STUFF 
001313 INC RCTBAD “INCREMENT IT 
BR MARBAD *GO MARK BAD 
000001 6$: MOV 1(R2) ,R3 “GET BAD PBN HDR 
100000 BIT #PRMY .R3 “IS IT SECONDARY ? 
BEQ LKIP5 >YES - GO DO IT 
001000 001217 BIS #PRIM,FLAG “SET FLAG FOR PRIMARY FOUND 
000004 001220 BIS #RPRIM,FLAG1 “SET GOOD EDC NEEDED 
001114 MOV CURBN+1,.R3 °° “GET HIGH ORDER HEADER 
170000 BIC #HD.CLR.R3. “CLEAR HEADER CODE 
050000 BIS #HD .PRV_R3 “MARK AS PRIMARY REVECTOR 
000002 MOV R3.FT.HI (RS) “STORE IN IMAGE BLOCK 
001052 MOV #SCR.RO “MAKE SURE POINT TO CHAR BLOCK 
001113 MOV #CURBN,R4 “POINT TO BLOCK NUMBER 
CALL § PRIMRB “GET PRIMARY RBN NUMBER 
001151 MOV REVRBN, RO “GET NUMBER OF REVECTORED RBN 


001152 MOV REVRBN+1,R1 “GET HIGH ORDER 
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ee 
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FOR PDP=-11 UDA DISK D 
T IMAGE SETUP OVERLAY 
903215 103201 60000 
003217 104204 006204 
003221 104203 000200 
003223 100247 
003224 100241 
003225 117403 
003226 053223 
003227 104204 006204 
003231 100654 000000 
003233 105200 000002 
003236 104202 006204 
003249 022627 
003241 100623 000400 
003243 003311 
003244 
003244 115400 001472 
603246 102202 010000 
003250 053265 
003251 104303 001114 
003253 103203 170000 
003255 101203 030000 
003257 100653 000002 
003261 105200 000002 
003264 003311 
003265 
003265 104303 001114 
003267 103203 170000 
003271 101203 110000 
003273 100653 000002 
003275 105200 000002 
003300 003311 
003301 104303 001114 
003303 103203 170000 
003305 101203 000000 
003307 100653 000002 
003311 105205 00000 
003313 
003320 102200 000100 
003323 053335 
003324 117400 001235 
003326 053335 
003327 101200 020100 
003332 104300 001237 
003335 102200 002002 
003340 053352 
003341 
003346 104303 001500 
003350 053352 
003351 023657 
003352 117400 001454 
003354 053105 
003355 104207 001052 
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BIS #HD .RBN,R1 


MOV RO, (R4)+ 


MOV R1,(R4)+ 

DEC RS 

BNE RPT 

MOV #PRMBUF ,R4 
MOV R4,FT.BUF (R5) 
ADD #2 ,BADPBN 
MOV APRMBUF ,R2 
CALL CE 


DC 
MOV R3,RW.EDC(R2) 
LKIP4 


INC SNDCNT 
BIT #FBDHD ,R2 
MARBAD 


MOV CURBN+1 ,R3 


ADD #2, BADPBN 
BR  —s_ LK IP4 


"MOV CURBN+1,R3 


BIC #HD.CLR,R3 
#HD .BAD ,R3 
MOV R3,FT.HI (RS) 
ADD #2 ,BADPBN 
BR LKIP4 
MOV CURBN+1,R3 
BIC #HD.CLR,R3 
BIS #HD.LBN,R3 
MOV R3,FT.HI(RS) 
ADD #IMLEN.RS 


CURBN 

BIT MREVECT, FLAG 
LKIP9 

DEC RCTTOT 


MOV F CNT , LBNBAD 


BIT #BSTGS+FCTEMT FLAG 


BNE LKIP10 
PBN 


DUBINC CUR 
MOV PCNT,R3 
BNE LKIP10 
ALL FCPG 
DEC SECCNT 
E LKIP2 


RBN FORMATTING 


MOV #SCR,RO 


:SET IN RBN HEADER CODE 

USE RDBUF TO HOLD 128 COPIES OF RBN 
;COUNT OF REPLICATED RBN'S 

;STORE A COPY 


HIGH ORDER 

EMENT COUNTER = DONE ? 
3NO - STORE ANOTHER COPY 
;POINT TO BEGINNING OF BUFFER 
:STORE NEW BUFFER PTR IN IMAGE 
; INCREMENT BADPBN POINTER 
POINT TO BUFFER 

;COMPUTE EDC - RETURNED IN R53 


TORE IT : 
P SECONDARY REVECTOR 


INC IT 
;HEADER IN ERROR CODE IN FCT ? 
BAD 


;YUP - MARK 

:GET HIGH ORDER HEADER 
; CLEAR HEADER 
;SET HEADER TO 
:STORE IN IMAGE 

; INCREMENT BACPBN POINTER 
7SKIP GOOD MARK 


;GET HIGH ORDER HEADER 
;CLEAR HEADER CODE 


CODE 
SECONDARY REVECTOR 


: MAGE 
:GO TO NEXT IMAGE BLOCK 
:DO THE INCREMENT 


T OF RCT ? - NO 

;SET TO REVECTOR 

:GET FCT ENTRY COUNT - AFTER RCT 
:DOING BEST GUESS OR FCT EMPTY 
;YUP - SKIP FCT STUFF 

:DO0 THE INCREMENT 

: PBN COUN 


“IF NOT DONE SKI 
“ELSE PAGE IN NE 


;NO - DO NEXT LBN 


BN LKIP9 
BIS MREVECT+INIRCT.FLAG 


:POINT TO CHARACTERISTICS 


SEQ 0082 


— — — 


DATA 
BN F 


ORMA 
115 00335, 
116 003361 
117 003363 
118 003365 
119 003367 
120 003371 
121 002372 
122 003374 
125 003576 
124 003400 
125 003402 
126 003403 
127 003404 
128 003405 
129 003406 
130 003407 
131 003411 
132 003412 
133 003414 
134 003416 
135 003420 
136 003422 
137 003425 
138 003426 
139 003430 
140 003431 
141 003432 
142 003433 
143 003434 
144 003436 
145 003440 
146 003441 
147 003442 
148 003444 
149 003446 
150 003447 
151 003452 
136 003454 
153 003456 
154 003460 
155 003462 
156 003465 
157 003470 
158 003471 
159 003473 
160 003475 
161 003477 
162 Rest 
163 003504 
164 003505 
165 003510 
166 003512 
167 003514 
168 003521 
169 003523 
170 3258 
171 352? 
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001447 


001452 


000001 
002002 


001110 


000001 


000001 


001500 
001237 


001217 


001217 


001220 
001220 


001217 


LKIPB8: 


~ LLOVER: 


LKIP13: 


LKIP6: 


LKIP?7: 
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RBNTRK (RO) ,R3 
#HIIBYTE,R 
R3,SECCNT 
#RBNBUF 


R2,(RO)+ 
ane 


K 

LLOVER 
BADEDC,R2 

R2, (RO) + 
ARBNBUF ,R3 
R3,FT.BUF (RS) 
CURRBN,R3 
R3,FT.LOWC(RS) 


#BSTGS+FCTEMT,FLAG 


LKIP13 
#FCTEMT,FLAG 
CURRBN+1 ,R3 
#HD.CLR.R3 
#HD .BAD ,R3 
R3,FT.HIC(RS) 
#2,BADPBN 
#PRIM,FLAG 
LKIP?7 
CURRBN+1 ,R35 
#HD.CLR,R3 
#HD .RBN,R3 
R3,FT.HI (RS) 
#RPRIM,FLAG1 
LKIP7 
#RPRIM,FLAG1 
#GDBLK ,R3 
R3,FT.BUF (R5) 
CURRBN 

pas: 


N,R5 
#BSTGS+FCTEMT, FLAG 


LKIP14 
#CURPBN ,R4 


;GET RBN‘S/TRACK 
;CLEAR HIGH GARBAGE 


:SET COUNTER 

sFIRST WORD OF PATTERN 
:SECOND WORD OF PATTERN 

: THIRD WORD OF PATTERN 
:STORE IT 

:STORE IT 

sSTORE IT 

:DECREMENT COUNTER 

:REPEAT TILL DONE 

:EDC FOR PATTERN (FORCED ERROR IND) 
:STORE IT ee 
:POINT TO BUFFER 

:STORE IN IMAGE 

:GET LOW ORDER RBN 

:STORE IN IMAGE 

:IS FCT AVAILABLE ? 

:NO - CONSIDER GOOD 

: CURRETN PBN 

:GET LOW ORDER BAD 

:GET LOW ORDER CURRENT 
:ARE THEY EQUAL ? 

:NO - SKIP REST OF COMPARE 
:GET HIGH ORDER BAD 

:GET HIGH ORDER CURRENT 
sARETHEY EQUAL ? 

:NO - MUST BE GOOD 
:DECREMENT IT 

:DECREMENT IT 

:]F NON - ZERO SKIP FLAG SET 
-SET EMPTY FLAG 

:GET HIGH ORDER RBN 
>CLERA THE HEADER 

-MARK AS BAD 


;STORE IN IMAGE 

:POINT TO NEXT BAD 
;MAKE SURE NO PRIMARIES 
;SKIP GOOD MARKING 

:GET HIGH ORDER RBN 


: NOPE 

:CLEAR FLAG 

:GET GOOD EDC BLOCK 

:STORE IT IN BUFFER POINTER 
:DO THE INCREMENT 

-POINT TO NEXT IMAGE BLOCK 
-DOING BEXT GUESS ? 


-* 
:PREPARE FOR INC 


SEC 0083 


ST 


epee: EE GE ee ee eee 


A Fa a 


DATA FILE 
BN FORMAT IMAGE 
me 003531 
17 ee ee 
174 003534 
175 poh eh 
176 003536 
177 ote 
178 003541 
179 003542 
180 posed 
181 003545 
136 003546 
183 003550 
184 003551 
185 003553 
186 003554 
187 003556 
188 003557 
189 003561 
190 003562 
191 003564 
192 003566 
193 003567 
194 003571 
195 003572 
196 003573 
197 003576 
198 003600 
199 003601 
200 003603 
201 003605 
202 003610 
203 003612 
204 003614 
205 003616 
206 003617 
207 003622 
208 003625 
209 003626 
210 003627 
211 003632 
212 003634 
213 ites 
214 005637 
215 rag 
216 003642 
217 003643 
218 003645 
219 003646 
220 003650 
221 003651 
$s6 003653 
223 003655 
224 003656 
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000001 


060001 
001500 


001454 
000003 
040000 
0014635 


001052 
000011 


177400 
007275 
001332 
000736 


000731 
601127 
001127 

03 
000786 
0012351 
001332 
100000 


001123 
001127 


001332 


000731 


000731 
000731 
000736 


RINC1: 


LKIP14: 


LKIP19: 


LKIP15: 


LKIP17: 


LKIP18: 


LKIP16: 


CALL 
RE TURN 


G ? 
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(RS) RI 


LKIP8 
#IMLEN,R5 
(R5) ,R3 
ARECIR,RS 
R3,(R5) 
CURGRP 
LKIP19 
#SCR,R3 
OFFS(R3).R2 


R2 
#HIBYTE,R2 
R2 


LKIP15 
#IMAGE,IMSTAR 


DMU 
SECTRK , DDUMMY 
LKIP18 
SECTRK,DDUMMY 
LKIP17 
#IMLEN, TEMP 
TEMP+1 

ATEMP RS 


ASECTRK,R3 
DSUB 


SEQ 0084 


:GET LOW ORDER OPERAND 

: INCREMENT WITH CARRY 

:SAVE LOW ORDER RESULT 
:BRANCH IF DONE 

:GET HIGH ORDER RESULT 

> INCREMENT 

> SAVE HIGH ORDER 

:GET PBN COUNT 

: IF NOT DONE SKIP 

sELSE PAGE IN NEW FCT BLOCK 
;DECREMENT IT 

>NCQ ~ DO NEXT RBN 

et TO LAST ENTRY BUFF POINTER 


:GET IT 
sMARK IT AS RECIRC 
;STORE BACK 

;1S IT GROUP ZERO ? 

:YES - NO OFFSET 

:POINT TO CHARACTERISTICS 
;GET GROUP OFFSET 

;GET IN LOW ORDER 

;CLEAR HIGH ORDER 

;ANY GROUPS ? 

:YUP - HANDLE IT 

;ELSE START AT VERY BEGINNING 
:POINT TO START FOR LATER 
;BRANCH AROUND OFFSET FIXUP 
:STORE IT 

:FOR STORE 

;GET CURRENT GROUP 

:CLEAR HIGH ORDER 

7FOR MUL 


:DITTO 

sMULTIPLY TO GET OFFSET FOR THIS GROUP 

:1S TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 
zNO ~ ALL IS FINE 

:YES - SUBTRACT TILL IT IS 

7 CHECK AGAIN 

;MUST + BY ENTRY ! ENGTH 


>GET RESULT 

-GET ADDRESS OF END OF IMAGE 

> SUBTRACT TO GET STARTING LOCATION 
:STORE IN IMSTAR 

:GET BUFF POINTER 

>SIGNAL AS LAST 

:STORE IT BACK 

:FOR DECREMENT 


:DITTO 
:SUBTRAC TO GET NEXT TRACK 


—_—< —-<- = ~~ —_ <a eee ee oe 


OF 


VERLAY (FB) 


005152 001253 
000017 


000200 001500 


DATA FILE FOR PDPH=11 
BN FORMAT [MAGE SETL 
7 
2 
Z 003657 
5 50366) 104200 
6 003663 10420 
7 003665 022444 
8 003666 104200 
| 9 003671 
10 005672 000000 — 


eA LL I A CC OC AE LO CLL LLL LLL ALLLL LDL A LD 
eee ennai need 


————— — _ —_——— 
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PAGE IN NEXT FCT BLOCK 


RE TURN 


RS 
#PBNBUF , BUF PNT 
#F6 RI 


PAGE 
#128.,PCNT 
R5 


SAVE R5 
:POINT TO BUFFER 
; OVERLAY F6 DOES IT 


“RESTORE RS 
RETURN 


SEG 


9085 
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A FILE 
BN COMPUTE OVERLAY (G68) 

; _SBTTL L/RBN COMPUTE OVERLAY (G8) 

i : THIS OVERLAY COMPUTES L@N AND RBN OF THE LAST TRACK ON LAST LBN CYLINDER 
; : AND COMPUTES THE PBN OF THAT LAN 

$ 003673 DMOVLY G&,START 

5 

9 003047 104200 601153 MOV #G8,CUROVL sFOR RECCRDING 

10 003052 104207 MOV #SCR,RO :POINT TO CHARACTERISTICS BLOCK 

11 003054 023104 CALL NUMLBN -GET NUMBER OF FIRST LBN ON LAST LBN CYL 
1 003055 104140 MOV (R4) , CURBN -GET LOW ORDER 

13003057 104140 MOV (R4) ,HOLDBN SAVE FOR LATER 

14 003061 104640 001114 MOV 1(R4) , CURBN+1 :GET HIGH ORDER 

15 003064 104640 001120 MOV 1(R4) ,HOLDBN+1 >SAVE FOR LATER 

16 003067 9O 4 CALL NUMRBN >GET NUM OF FIRST RBN ON LAST LBN CYLINDER 
17 003070 1 0 MOV (R4), CURRBN :GET LOW ORDER 

18 pb 1 0 001107 MOV 1(R4) ,CURRBN+1 :GET HIGH ORDER 
19 004975 _ +1 0 MOV (R4) ,HOLRBN :SAVE LOW FOR LATER 
20 003077 1 0 001122 MOV 1(R4) ,HOLRBN+1 “SAVE HIGH FOR LATER 
21 003102 O 4 CALL LPBN “GET PBN OF FIRST SECTOR ON LAST TRACK 
22 003103 000 RETURN 


i a 


SEQ 0086 


ets ce ee aes 
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DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-sUL-81 15:08:54 PAGE 47 
OVERLAY (G8) 


I 
_/RBN COMPUTE 


4 
§ 003194 
6 005'07 
7 0045112 
§ 003115 
§ 003117 
10 003121 
11 903122 
1¢ 003124 
13 003126 
14 003130 
15 003132 
16 003134 
17 063156 
18 003140 
19 O81 46 
20 00314 
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001143 000736 NUMLBN: 
000737 


001144 


000731 


COMPUTE STARTING LBN ON LAST TRACK 


RO -> 


CHARACTERISTICS BLOCK 
7GET LOW ORDER NUM OF LBN CYLINDERS 


LBNCYL,TEMP 

LANCYL+1, TEMP+1 :GET HIGH ORDER 

#HD. CLR, TEMP+1 :CLEAR STARTING CYLINDER BITS 
ATEMP RS :DITTO 

ALBNPCY,R3 :GET LBN'S/CYLINDER 

DMUL :GET FIRST LBN ON LAST CYLINDER 
1(R4),R1 ;GET LBN 

ST.LBN,R? :ADD STARTING LBN TO GET ABSOLUTE LBN 
R1,1(R4) sSTORE BACK 

LBNTRK(RO) ,R3 :GET LBN/TRK : 
#MHIBYTE,R3 :CLERA HIGH BYTE 

R3,DDUMMY :STORE IT 

DDUMMY +1 :FOR STORE 

ADDUMMY ,R3 : LBN/ TRACK 

DSUB :WANT LBN ON LAST TRACK 


2 es 


SF Q 008 ; 


ES -_=—- 


a 


A 


3: 


\ 


w 
fo 
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OMPUTE OVERLAY (G8) 
: COMPUTE STARTING RBN ON LAST TRACK IN LBN AREA 
: RO => CHARACTERISTICS BLOCK 
003144 104300 001143 000736 NUMRBN: MOV t BNCYL, TEMP >GET LOW ORDER NUMBER OF LBN CYLINDER 
003147 104300 001144 000737 MOV LBNCYL+1, TEMP+1 “GET HISH ORDER 
003152 103200 170000 000737 BIC #HD. CLR, TEMP+1 >CLEAR STARTING CYLINDER BITS 
003155 104204 000736 MOV ATEMP,R “DITTO 
003157 104203 001147 MOV ARBNPCY,R3 :GET RBN'S/CYLINDER 
003161 021542 CALL DMUL -GET FIRST RBN ON LAST CYLINDER 
003162 104641 000001 MOV 1(R4) ,R1 GET HIGH ORDER 
003164 105301 001336 ADD ST.RBN,R1 “ADD TO GET ABSOLUTE LBN 
003166 100641 000001 MOV R1,1(R4) =STORE BACK 
098120 104673 000004 MOV RBNTRK (RO) ,R3 :GET RBN/TRACK 
003172 103203 177600 : BIC #HIIBYTE,RS :CLEAR OUT GARBAGE 
003174 104030 000731 MOV R3, DDUMMY “STORE IT 
003176 114000 000732 CLR DDUMMY +1 -FOR STORE 
003200 104203 000731 MOV ADDUMMY ,R3 :WANT LAST TRACK 
OOasoS 021524 CALL DSUB :GET IT 
003203 000 RETURN 
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os 
SWWOW 
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Severe 
SRASS 


i 
ooo 


6 
0000 


000731 


001123 
000001 


_ — ——- 


000731 
000732 
000732 


001124 


rma. Be Be Be 


COMPUTE 
RO -> 


V 
RETURN 


ae 
ee D MACRO K04.00 23-JUL-81 15:08:54 PAGE 49 


PBN FROM GIVEN LBN 
CHARACTERISTICS BLOCK 


CURBN , TEMP 
ea 


ST. 

R1,1(R4) 

LBNTRK(RO) ,R3 

#HIBYTE ,R3 
UMMY 


DDI 
RBNTRK (RO) ,R3 
#HIIBYTE.R3 


ADDUMMY ,R5 


DMUL 
CURBN , DDUMMY 
CURBN+1 , DDUMMY +1 
ST .LBN.DDUMMY +1 
ADDUMMY .R3 


DADD 
(R4) ,HOLDON 
1(R4) ,HOLDPN+1 


;GET LOW ORDER 
3GET HIGH ORDER 


“FOR MULTIPLY 


:GET NUMBER OF RBN'S 
:GET LOW ORDER CURR 


:GET HIGH ORDER 


; SUBTRACT STARTING 


:FOR ADD 
:ADD TO GET PBN 
;GET LOW ORDE 


R 
:STORE HIGH ORDER 


ee ns 


— ee een 


ENT BLOCK NUMBER 


SEQ 0089 


<> = - EE es 
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DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 50 SEQ 0090 


FCT DOWNLINE LOAD OVERLAY (F3) 





} _SBITL FCT DOWN-LINE LOAD OVERLAY (F3) 
7 : DOWNLINE LOADER FOR FCT 
; 003272 ‘ FDLL DMOVLY F3,START :OVERLAY #3 
7 003047 104200 000006 001153 MOV #F 3, CUROVL :OVERLAY #3 
8 003052 104200 000001 001501 MOV #1, COUNT = INIT COUNT TO 1 
9 003055 104300 001337 001116 MOV ST. XBN, CURXBN+1 *ALSO INITIALIZE XBN COUNTER 
10 00 104300 001337 001114 MOV ST.XBN, CURBN+1 :HIGH ORDER 
11 003063 114000 001115 CLR CURXBN -LOW ORDER IS ZERO 
1g 003065 114000 001113 CLR URBN -DITTO 
13 003067 104207 001430 MOV #CONBLK,RO :POINT TO CONVERT BLOCK 
14 003071 104203 001052 MOV #SCR.R3 . -POINT TO CHARACTERISTICS 
15 003073 104632 000000 MOV CYLBN(R3) .R2 -GET LBN CYLINDERS 
16 003075 100672 000000 MOV R2.V1(RO) ' =STORE IN CONVERT BLOCK 
17 003077 104632 000001 MOV CYLBN+1(R3),R2 -GET HIGH ORDER 
18 003101 100672 0 1 . MOV R2,V1+1(RO) -STORE IT 
19 003103 104303 001127 MOV SECTRK,R3 -GET SECTORS/TRACK 
20 003105 100673 4 MOV R3,V3(RO) -STORE IN CONVERT BLOCK 
21 003107 192200 002000 001217 BIT #BSTGS.FLAG “IN BEST GUESS MODE ? 
22 003112 053114 BNE NODLL -YUP - FIX UP FIRST BLOCK 
23 003113 003144 BR LOOP -START LOOP 
24 003114 104203 004535 NODLL: MOV ARDBUF ,R3 “POINT TO BUFFER 
$2 003116 114002 CLR R2 *SET MEDIA MODE TO O (IN FORMAT) 
6 003117 100132 MOV R2, (R3) *STORE IT 
27 003120 104204 001305 MOV #ASERNUM, RS *POINT TO SERIAL NUMBER 
28 003122 105203 000002 ADD #FSER,RS “POINT TO ENTRY IN FCT BLOCK 
+4 003124 104203 000004 MOV #4,R5 > INIT COUNTER 
003126 104242 9$: MOV (R4)+,R2 :GET WORD 
31 003127 100232 MOV R2,(R3)+ *STORE WORD 
32 0031 117405 DEC R5 \ =DECRMENT COUNTER 
33 003131 053126 BNE 9$ CONTINUE TILL DONE 
34 003138 114008 CLR R2 -FOR INSTANCE NUMBER 
35 00313 104203 004535 MOV ARDBUF .R3 -RESET POINTER 
36 003135 100632 000001 MOV R2, INST(R3) *STORE INSTANCE NUMBER IN BLOCK 
37 003137 101202 ‘100000 BIS #NOF CT ,R2 “SET NO FCT AVAILABLE BIT 
38 003141 100656 0025 MOV R2.FCTFLG(R3) =STORE IT IN FCT INFO BLOCK 
39 90 143 00320 BR LOOPP2 -SKIP DLL STUFF 
40 003144 104205 001263 LOOP: MOV #DMBUF ,R5 “POINT TO MAINT BUFFER 
41 003146 104303 001321 MOV FCMSG,R3 -GET DUP CODE 
42 003150 100153 MOV R3, (R5 “STORE IT IN MESSAGE 
43 003151 104303 001322 MOV FCMSG+1,R3 “GET 'F * IDENTIFIER 
44 903132 100653 000001 MOV R3,1(R5) =STORE IT 
45 155 104303 001113 MOV CURBN, “GET BLOCK NUMBER DESIRED 
46 003157 4 000002 MOV R3,2(R5) :STORE IT 
47 003161 022536 CALL SNDMNT -SEND REQUEST 
48 003162 022544 CALL RCVMNT “RECEIVE ANSWER 
49 90316 104653 000002 MOV (R5) ,R3 -GET BLOCK COUNT RECEIVED 
50 003165 013451 BEQ DONDLL “DONE DLL OF ACTUAL FCT 
51 003166 104650 000003 001425 MOV 3(R5) ,OVLBLK+1 -GET HOST ADDRESS 
2¢ 903121 114000 001426 CLR OVLBLK+2 -Z7ERO HIGH ORDER 
5 3175 104200 000401 001424 MOV #257. ,OVLBLK “NUMBER OF WORDS TO TRANSFER 
54 003176 104204 001424 MOV #OVLBLK ,R4 :FOR OVERLAY ROUTINE 
5§ 003200 104203 535 MOV ARDBUF ,R3 “POINT TO BUFFER 
56 OO aSos 022526 CALL OVRLAY :GET THE SECTOR 
57 003203 114005 LOOPP2: CLR RS *CLEAR WRITE ERROR COUNT 


_ EE ee — —— - _ = om 
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59 003206 
60 60354. 
61 03212 
63 003216 
64 003217 
65 00 $9 
66 003222 
67 00 Se 
68 003225 
69 003226 
70 003 $f 
71 pat 

72 003231 
73 003253 
74 905254 
76 003241 
77 003244 
78 O0se46 
BO RSer 
81 003294 
85 003257 
85 OO eSe8 
86 003264 
87 003 96 
88 003270 
89 003272 
90 003274 
91 003276 
a8 003 

93 003302 
% 903504 
95 005306 
97 » 312 
IB 314 
99 003316 
5 003320 
01 005388 
05 003824 
05 003326 
06 1 
07 903532 
09 35 
09 003355 
11, 905340 
12 005541 
1% 003345 
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eases 222 
ESS=ISS 
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Sse 
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aA 
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So 


001245 
000001 
001301 
004535 


000012 
000004 


001502 
001504 
007505 


001504 
001505 


001501 


000736 
000737 


001504 


10$: 


LOOPP : 


WRITE1: 





R5,NEXT1 
#1, COUNT 


LOOPP 
ADATE RS 
#RDBUF ,RS 


R 

A#RDBUF ,R2 
CEDC 
R3,RW.EDC(R2) 
CURBN , TEMP 
CURBN+1, TEMP+1 


R2,R 

R3,RW. CMD(RO) 
#RDBUF ,R 
voor 
R3,RW.LOW (RO) 
CURBN+1 ,R3 
#HD . XBN,R3 
R3,RW.HI (RO) 
#HSLIM-1 .R5 
R3,RW.DUM(RO) 
HPREA R35 


DPREA,R4 


ae 


;CLEAR REPEAT COUNT 
31S IT THE FIRST ONE ? 
zNO - SKIP THIS STUFF 


: INIT COUNTER 
;GET 


; STORE WORD 

;DECRMENT COUNTER 

; CONTINUE TILL DONE 
7CLEAR R5 (ERROR COUNTER) 
:POINT TO BUFFER 

; COMPUTE EDC 


; STORE 
;GET LOW ORDER 
;GET HIGH ORDER 


;FOR S 

;GET HIGH ORDER 
;SUBTRACT STARTING XBN 
; STORE BACK 

;CONVERT AND SEEK 
sPOINT TO CUMMAND BLOCK: 
:GET WRITE COMMAND 

:GET CURRENT TRACK 

:SET TRACK FOR WRITE 


;GET HIGH ORDER 

;SET HEADER 

;STORE IN WRITE BLOCK 
:GET gg SDI dg 
; K 


“GET DATA PREAMBLE 
“SET UNIT 
“MAKE SURE POINTING AT BLOCK 


SET NO REVECTORING 


{WALT FOR SECTOR PULSE 
!WRITE SECTOR 

sANY ERROR ? 

:NOPE 

:MAX ? 
*YES - TRY SOME RECOVERY 
: INC RETRY COUNT 


‘Dg RETRY . 
:GET CURRENT ERROR RECOVERY LEVEL 
: IF NEGATIVE THEN FRIED 

: TRY RECOVERY 

:FOR INIT 

:DECREMENT IT 

:RETRY 


rs 
nl 


DATA 
FC 


a 


115 003346 
118 903346 
117 003367 
118 003351 
119 003353 
120 003356 
i) Sas 
133 003363 
124 003366 
156 003371 
127 003372 
128 003375 
129 003376 
130 003401 
131 003402 
132 003403 
133 003405 
134 003412 
135 003415 
136 003420 
137 003423 
138 003424 
139 003496 
140 003431 
141 003432 
142 003435 
1463 003437 
144 003441 
145 003442 
146 003444 
147 003446 
148 003450 
149 003451 
150 003453 
151 003455 
15¢ 005436 
153 003457 
194 005460 
155 003461 
156 003464 
188 O08c66 
189 903470 
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FILE FOR PDP-11 UDA DISK 
T DOWN-LINE LOAD OVERLAY (F3 


004000 


001501 


001115 
001116 
001260 


001244 
001240 


000001 
001037 
000001 
177760 
001244 
000003 


000400 
004535 


004000 


000015 


001505 
601245 


001217 
001217 


001113 
001114 
001591 


001501 
001217 


0071217 


A EE OL COLL LL LLL LLL LLL LLL LLL A 


2s: 
NO: 


12$: 
DLLR71: 


DLLRET: 
DONDLL : 


LOOP3: 


ERROR: 
DLERT: 


B 8 
; MACRO X04.00 23-JUL-81 15:08:54 PAGE 50-2 


R5 
NEXT1 


TMPTRY 
RECOV,RECTMP 
#CURBN ,R4 
#FCTFMT,R3 
DADD 
FCTCPY,NEXT1 
LOOPP 
FCTCPY,R5 
ERROR 
ABSTGS,FLAG 
DLLRET 
——«- 


A” gical 


FCTCPY 
FCTFMT , COUNT 
OP 


LO 
#FCTAVL,FLAG 
#CR,RO 

FRCPY (RO) ,R3 
R3 


#FCLR,R3 
R3,FCTCPY 


LOOP 
#NDLL FLAG 
LOOPP2 
R1.R2 
#13.,R1 
ERRMNT 


;YUP - INCREMENT COUNTER 


fg ered IT 


; ESET 
:GET RECOVERY LEVELS 
sFOR ADD 


;FOR ADD 

:POINT TO NEXT COPY 

sDONE THIS SECTOR ? 

zNO - WRITE NEXT FCT COPY 

;ERROR ON EVERY WRI 
ROUBLE 


;YUP ~ JUST WANT TO WRITE FIRST BLOCK 


;YUP - BIG T 
;BEST GUESS ? 


;ALL DONE 
;YUP - EXIT 


X 
- LET HOST KNOW STILL ALIVE 
7 INCREMENT IT 


*GET HIGH ORDER 


:AT THE LAST NON-PAD ENTRY 
“DECREMENT - NO PAD ON LAST COPY 
“DONE ? 

NOPE - DO NEXT SECTOR 


“SET FCT AVAI 


LABLE 
sPOINT TO CHARACTERISTICS BLK 


:GET F/RCT COPIES 


:GET INTO | OW BYTE 
;CLEAR OUT REST OF GARBAGE 


: 


;RESTORE Nuri OF COPIES 


:FOR OVERLAY #2 
;LBN FORMATTING 


;COUNT FOR BLOCK INIT 


:POINT TO BUFFER 
: INIT TO 0 
: CLEAR ONE WORD 
-DEC COUNTE 


;SET FLAG 


; TER 
AS cit hy TILL DONE 


; CONT INUE 
:GET XFC ERROR CODE 


:FCT WRITE ERROR 
;ERROR RETURN 


SEQ 0092 


A FILE FOR 
UPD 
2 003471 
4 
4 
5 
” 
? 
8 
9 
10 
11 003047 
12 003052 
13 003054 
14 003055 
15 003057 
16 003060 
17 003062 
18 003063 
19 003066 
20 003071 
21 003073 
22 003075 
23 003076 
24 003101 
25 003103 
26 003105 
27 003110 
28 003113 
29 003114 
30 003116 
31 003121 
32 003123 
33 003124 
34 003125 
35 003127 
36 003130 
37 003132 
38 003134 
39 003135 
40 003137 
41 003141 
42 003142 
43 003144 
44 003146 
45 003147 
46 003151 
47 003153 
48 003155 
49 003157 
50 003160 
31, 00316 
38 $0317 
54 003172 
55 003174 
56 003176 
57 003177 
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000011 
001112 


001125 
001126 
001133 


001227 
001224 


100000 
177777 
170000 
000731 
000002 


001477 
001227 


001253 
000055 


006621 
000736 


001474 
110000 
000000 
000001 
170000 
040000 


001153 


001227 
001230 


001474 


000732 
000732 


000732 


0007335 
000734 


ROVER: 


Cc 8 
PPP-11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 51 
ATE OVERLAY (F4) 


.SBTTL RCT UPDATE OVERLAY (F4) 
DMOVLY F4,START . 


THIS OVERLAY UPDATES THE RCT W:TH THE SECTORS 
IN THE ERRBUF BUFFER 


: MOV #F4, CUROVL :GET OVERLAY 
MOV CURTRK ,R3 ;GET CURRENT TRACK 
PUSH R3 : SAVE FOR RESTO 
MOV CYLNUM,R3 :GET LOW ORDRE CYLINDER 
PUSH SAVE FOR REST 
MOV CYLNUM+1 ,R5 | :GET HIGH ORDE 
PUSH R3 :SAVE FOR RESTORE 
MOV LBNLBN HOLD :GET LOW ORDER COUNT OF LBN'S 
MOV LBNLBN+1 .HOLD+7 :GET HIGH ORDER 
MOV ATOTRCT RS ;FOR SUBTRACT 
MOV #HOLD ,R4 :DITTO 
CALL DSUB :GET STARTING RCT LBN 
MOV . ERRBUF ,UPDPNT :POINT TO ERROR BUFFER 
MOY = UPDPNT,R2 :GET POINTER TO BAD LIST 
MOV (R2) ,DDUMMY ;GET LOW ORDER 


ROVER] :. 


BIC #HD.CLR,DDUMMY +1 


MOV 1(R2) ,DDUMMY +1 ;GET HIGH ORDER ’ 
BIT #B1T15,DDUMMY +1 : :IS IT AN RBN ?? 

BEQ ROVER) 7NO - REGULAR HASH 

MOV #-1,R1 ;HASH FOR RBN 

;CLEAR THE HEADER 


MOV ADDUMMY ,R4 ;FOR HASH 
SH :FIND THE RCT ENTRY FOR CURRENT ERR BLOCK 


;GET BLOCK NUMBER 
ADD #2,R3 ;ADD TO GET PAST FIRST 2 BLOCKS 
MOV R3,(R4) ; STORE BACK 


MOV R3.RCTCNT 


“FOR LATER PING-PONG 
MOV #HOLD.RS “FOR ADD 


:FOR 
:TO GET LBN OF RCT BLOCK 


CALL D 
MOV R4 ,BUF PNT :STORE POINTER TO BLOCK NUMBER 
MOV #H1,R1 ;RCT READ OVERLAY 


:bDO IT 
:POINT TO BUFFER 
:GET OFFSET 


PAGE 
MOV ARCTBUF .R5 
MOV OFFSET .R3 


ADD R3.R :POINT TO HIT ENTRY 
MOV UPDPNT ,R2 ;RESTORE POINTER 
1(R2) ,R3 ;GET THE HEADER 
BIC ALO.R :CLEAR ALL BUT HEADER 
CMP #HD .BAD ,R53 :1S IT A BAD RBN ? 
BNE NOTR ;NOPE - CHECK FOR PRIMARY 
MOV O(R5) , TEMP2 :GET LOW ORDER CURRENT RESIDENT 
MOV 1(R5), TEMP2+1 :GET HIGH ORDER 
BIC #HD.CLR,RS :CLEAR HEADER 


BIS #RC.UNU,R3 ;MARK AS UNUSUABLE 
BIC 0,R3 ;CLEAR LOW ORDER 
MOV R3,1(R5) ;STORE IT BACK 


R 
MOV R3,(R5) 


SEQ 0093 
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003200 


2 
63 003210 
64 


g 
g8 


WAWAANNNAAN A 
MMMMNMNMNNMNNMNNNY 
QUAN NUS 


Soh 
stotatotatata. 
WN 2223 


WOO LSMON 


nt wd elt el el ed el ol ae oe — es ss 
—_ 
RWUM OSB UR ARAL ODD NS 
NAINA AA 
™m 


REYISS 


10220C 
013322 
023421 
3612 
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020000 000734 


006621 
000733 
000001 
170000 
030000 
060001 
050000 
000001 


007777 
000000 


000007 


000001 
000000 000733 
000001 000734 


000001 


000735 
006621 


000001 


000002 001474 
001254 


001126 
001077 


NOTR: 


SWAP: 


SECNDY: 


TTOM: 
A 


ee ae ee ee ee ees ee ————E inne a 


#B1T13,TEMP2+1 
BOTTOM 
RCTWI 


PNGPG 
ARCTBUF RS 


BOT 
O(R5), TEMP2 
ea 


#HD.CLR,R3 
Oe ok R35 
R3,1 


RCTW 
WERLEN, UPDPNT 
REVCNT 

_ 


RS, CYLNUM+1 
nae  ISEEK+t2 


ANY THING Det a Si v7f 
NO NEED TO 


:NO 
{WRITE UT BLOCK 


POINT | 7: BUFFER 

:ADD OFFSET 

:POINT TO OLD RESIDENT 
OW ORDER 


>MARK AS SECONDARY 
STORE IT 
:GO TO BOTTOM OF 


PING-PONG 
FIND IT A NEW HOME 


LOOP 


=PRIMARY REVECTOR ?? 


;GET RCT H 


HE 
7CLEAR ALL wt HEADER 


GH ORDER 
;SUBTRACT STARTING LBN BITS 


; CLEAR HEADER 


>: SIGNAL “4 ad REVECTOR IN RCT 


OF LOOP 
:GET LOW ORDER CURRENT RESIDENT 
;GET HIGH ORDER CURRENT RESIDENT 
:GET LOW ORDER NEW RESDENT 


:PUT IN RCT 


:GET HIGH ORDER NEW RESIDENT 
;SUBTRACT STARTING LBN 
:CLEAR THE HEADER 


:SET AS PRIMARY 
N RCT 


=NO - TREAT AS SECONDARY 
ADER 


:PUT_IN 
;WRITE OUT PRIMARY ee 


:POINT TO OLD RESIDENT 


;FIND RCT ENTRY FOR SECONDARY 
:POINT TO BUFFER 


:ADD OFFS 


ET 
:GET LOW ORDER NEW ENTRY 


:PUT IN 


BITS 


N RCT 
;GET HIGH ORDER NEW ENTRY 


ar 
"Acted 
m 
Ps) 


; IN RCT 
;WTIR OUT RCT BLOCK 
:POINT TO NEXT ERROR SECOTR 


; DECREMENT IT 


ONE - DO NEXT SECTOR 


;NOT D 
:GET HIGH ORDER CYL 


:RESTORE IT 


;PUT IN SEEK COMMAND 


:GET LOW ORDER 


:SUBTRACT STARTING LBN BITS 


SEQ 0094 


aa a 


sealer eT LDL 


E 8 
DATA FILE FOR PDP-11 +g DISK D MACRO xK04.00 23-JUL-81 15:08:54 PAGE 51-2 SEQ 0095 
RCT UPDATE OVERLAY (F4 


115 003337 104603C 001125 MOV R3,CYLNUM | 

116 003341 104030 001076 : MOV R35, 1SEEK+1 ;PUT IN SEEK COMMAND 

(17 003343 _ or R3 ;GET TRACK NUMBER 

118 003344 104030 901112 ; MOV R3,CURTRK SRESTORE IT 

119 003346 sOesee 040000 001217 BIT #FINI,FLAG :DO THE SEEK ? 

120 003351 053356 BNE NOSEK ;NOPE 

121 003352 104300 001463 001100 MOV CURGRP, ISEEK+3 [RESTORE GROUP TO SEEK 

156 003355 022251 CALL SEEK 3GET BACK TO RIGHT CYLINDER 
123 003356 000000 NOSEK: RETURN 


F 8 
DATA FILE FOR PDP=11 UDA DISK D MACRO K04.00 23-JUL-81 15:08:54 PAGE 52 


ee 


RCT UPDATE OVERLAY (F4) 


' 
é 
4 903357 115001 
5 093360 073410 
6 003361 104207 001052 
7? 003363 022757 
8 003364 104200 200 
9 003367 114000 00073 
10 003371 104300 001151 
11 003374 104300 001152 
i¢ 003377 104204 000731 
13 003401 104203 000736 
‘3 603403 021570 
16 003404 104131 
17 003405 105011 
18 003406 100131 
19 003407 000000 
20 003410 104140 001151 
21 003412 104640 000001 
ec 003415 107300 001356 
25 003420 005564 


000736 


000731 
000732 


UHK IP 1: 


COMPUTE RCT ADDRESS FOR GIVEN LBN 


Mp 

RE VRBN , DDUMMY 
REVRBN+1 , DDUMMY +7 
ADDUMMY ,RS 


ATEMP ,R3 
DDIV 


(R3),R1 
R1,R1 
R1, (R35) 


(R4) ,REVRBN 
1(R4) ,REVRBN+1 
ST.RBN,REVRBN+1 


UHK IP 


:NEED TO COMPUTE PRMARY RBN ? 

:NO - SKIP IT 

:POINT TO CUBUNIT CHARACTERISTICS 
: COMPUTE PRIMARY RBN 

>DIVIDE BY 128 TO GET BLOCK NUMBER 
sFOR STORE 

:GET PRIMARY RBN 

:GET HIGH ORDER 

:FOR DIVIDE 

sDITTO ? 
:DDUMMY=RCT BLOCK NUMBER 

; TEMP=O0F F SET 

:GET OFFSET 

sMULTIPLY BY 2 

;STORE BACK 


;FORDIVIDE SETUP 
;DITT 


; 0 ° 
; SUBTRACT STARTING RBN BITS 
:DO DIVIDE 


SEQ 0096 


ee LO ELE —= 


ma a rr eer 


nee te cee ee ee 


a ree ee RE Ee RR 
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407 UPDATE OVERLAY (F4) 


LAN 

& 

Wn nanory 

BRrOSRNOORD— 

eh eh en ae ed wd ed eh ed ced ed eed eed wed eed eed ed 


oOooon 


. a ee 
oOo 


OSM N 


SSSSSSS8SS8SS8SSsS3ssss 


ERFARESESSERESESESES 


gssesss 
ae 


SSSso55 


Wwwrorororn--- 


2 
oO 
OWN FW NUVI NU OS 


GEEA 


Sa el el 


SII LN IVI Se Be BS ES E> ES EX EX EE AANA ANNAN RU PO ODNOME AMO 
MO NWO OW NO UF WI - 0 DONO WS wh OO NOUS WR -OV@NC US WHO VBNO Ewer 
MOO UIE MWO 


Ww 
WI 
ww & 


RRERE 
S 


-OOO © 
SESARSRAE 
$2 No 
NOWNO 
SMNMNMMNN NMG 


Oooo—-N 


OONO 
RO oRREN 
MWNMWWNWN 


SSues 
R=AACMAOWNMNN 


 NMNMONDT 


OOOCOODOOCOO0OO 
ONONOOL™N 
WWIWAWIANINNNN 


So 
ox 


— ss = SS = 3 3 3 3 3 SS I I OS 
© 
= 


S==8Ss8=SsS=8F 
Rruw WNERVAR AAAS SORER ROR 
Ssae SOL 


eel ely aly allt 
nod and od 
ek Ws 
[> | ~— 
Ww = 


000004 
006621 


000400 
000001 


000721 


001502 


001504 


WRITE2: 


RWGD: 


WRITE AN RCT BLOCK 


R5 
R5,NEXT1 
ADDUMMY ,R4 


#STR,RS 
LBNTRK(R3) ,R2 
MHIBYTE.R2 


R2,V3(RO) 
STCYL(R3) ,R2 


R2,V1+1(RO) 

R2 

R2,V1(RO) 
TSK 


R2.R 
R3,RW.CMD(RO) 
ae 


CED 3 
R3,RW.EDC(R2) 
R2,RW.BUF (RO) 


HPREA,R5 


RWGD 
Natl Reames 
TMPTRY 


WRITE2 
tld 


ERRHND 
TMPTRY 
RECTMP 
WRITE? 


R5 
NEXT 


TMPTRY 
RECOV, RECTMP 


:CLEAR ERROR OCUNTER 
7RESET NEXT COUNTER 


:POINT TO 8 


LOCK 
sPOINT TO CHARACTERISTICS 
; RACK 


: C 
=CLEAR REST OF WORD 
“POINT TO CONVERT BLOCK 


:FOR CONVERT 

> STARTING CLYL 
;CLEAR REST OF 
; STORE 


INDER 
WORD 


;CLEAR FOR STORE 

;LOW ORDER ALWAYS 0 
;CONVERT AND SEEK 
sPOINT TO ope BLOCK 


:GET 


WRITE COMMAND 
;GET CURRENT TRACK 


;SET TRACK FOR 


WRITE 


:STORE IN COMMAND BLOCK 


:POINT TO BUFFE 


; COMPUTE EDC - 
e if 


R 
RETURNED IN R3 


sSTORE I 
sSTICK IN COMMAND BLOCK 


;GET LOW ORDER 
;STORE IN WRIT 
;GET HIGH ORDE 
;ADD STARTING 
:SET HEADER 

:STORE IN WRIT 
;GET DUMMY SDI 


HEADER 
E BLOCK 


R 
LBN BITS 


E BLOCK 
POINTER 


;POINT IN COMMAND BLOCK 
:GET HEADER PREAMBLE 
:GET DATA PREAMBLE 


:SET UNIT 


E SURE POINTING AT BLOCK 


7MAK 

>WAIT FOR SECT 
:WRITE SECTOR 
sANY ERROR ? 

: NOPE 


9 


OR PULSE 


;MAX ? | 
-YES - TRY SOME RECOVERY 


; INC RETRY COUN 


DO RETRY 


“GET CURRENT ERROR RECOVERY LEVEL 


:1F NEGATIVE T 
> TRY RECOVERY 
:FOR INIT 
>DECREMENT IT 
;RETRY 


: YUP - INCREME 
~ s INCREMENT IT 

>FOR RESET 

>GET RECOVERY 


T 


HEN FRIED 


NT COUNTER 


LEVELS 


SEQ 0097 


eas _— 


H 8 
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DATA FILE FOR SDP=-11 UD SFO OCO9R 
WT UPDATE DVERLAY (F4) 
58 003555 104204 0007351 MOV ADDUMMY , RS :FOR ADD 
59 003557 104203 001242 MOV ARCTFEMT,R3 :FOR ADD 
60 O28 OF ah8 CALL DADD :POINT TO NEXT COPY 
61 $962 106300 001244 001245 (MPs ECTCPY,NEXT1 “DONE T!IS SECTOR ? 
62 003565 053426 BNE RCTWLP sNO = WRITE NEXT FCT COPY 
63 ep a296 106305 001244 CMP FCTCPY,R5S :ERROR ON EVERY WRITE ? 
64 003570 013606 BEQ RCTERR -YUP = BIG TROUBLE 
65 003571 104303 001245 RCXLP: MOV NEXT1,R3 sANY REAPEATS ? 
66 003573 013604 BEQ RTDON : 
67 003574 104204 000731 MOV ADDUMMY , RS -TO GET IT BACK 
68 003576 104203 001242 MOV MRCTFEMT,R3 -=DITTO 
69 003600 021524 CALL DSLB 
70 003601 117400 001245 DEC NEXT1 :SUB IT 
71 003603 003571 BR RCXLP sREPEAT | 
72 003604 060022 RTIDON: XFC UPDATE *LET HOST KNOW STILL ALIVE 
73 003605 9000000 RE TURN 
74 003606 104012 : RCTERR: MOV R1,R2 :>XFC ERROR CODE 
75 003607 104201 000017 MOV #15. ,R1 “RCT WRITE ERROR 
76 003611 022552 CALL ERRMNT ERROR QUIT 


AL TO AP 


ee - 


—_— 


ROO OOO 


WNRINRIAINPIDAIR - 
We NMA = OP Uw 


RRRRARAAO 
oe 


w 


S8SSSSsssssssssssssss 
EESEERS 


wi 
ron 
~~ 


888S8888S88sss 
SESS Seka 
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, 
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Ww 
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UWORMIWN 
NVA 
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URRY RROROR 
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DATA FILE FOR PDP=-11 UDA DISK D MACRO 
CT UPDATE OVERLAY (F4) 


001222 
000736 


000400 
006622 
007777 
100000 


000000 


000002 
000400 


001477 
001477 
000731 


000001 
000736 
001227 
001253 
000055 
001222 


000002 
000002 


000020 


001477 
001222 


PNGPG: 
XNGBLK : 
XAGAIN: 


XFLIP: 


XNOINC : 


XPNGRD : 


XEORCT: 


' 


I 8 
x04.00 23-JUL-81 15:08:54 PAGE 54 Sea OC 


SEARCH FOR OPEN ENTRY IN RCT 


IN THIS SECTION THE BLOCKS 


R2 :SAVE R2 

WRFLG “CLEAR WRAP FLAG 

R2 FOR FLOP SET 

OFFSET,R3 “GET OFFSET 

R3,R5 “MOV OFFSET INTO BUFF POINTER 
R2_R5 “ADD FLOP VALUE 

#BITB.RS “PAST ONE END (OR BOTH) 
XFLIP “YUP = FLIP OTHER DIRECTION 
RCTRUF+1(R5).R1 GET HEADER CODE 

#L0,R “CLEAR LOW ORDE 

#RC.NUL.R1 “END OF RCT ? 7 
XEORCT - “YUP = WRAP TO FIRST BLOCK 
ARC.FRE,R1 sFREE ? 

XPRET _ -YUP = ALL DONE 

R2.RS “GET FLIP VALUE 

R5,R2 :NEGATE IT 

XNOINC “IF NEGATIVE DON'T INC 
#2,R2 “ADD TO NEXT VALUE 

#256. .R2 “DONE EVERY SLOT IN BLOCK ? 
XAGAIN “NOPE - TRY NEXT ONE 


PING-PONGED BU 


ARE T 
THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 
ADDRESS TO LOWEST 


RCTCNT 
RCTCNT ,R3 


ADDUMMY ,R4 


R3,(R4) 
R 


R3,1(R4) 
R3,OF FSET 
#HOLD .R5 


XNGBLK 
WRFLG,R5 
XPERR 
#2,RCTCNT 
#2 ,WRFLG 
XPNGRD 


R2 7 
#16.,R1 


Re 
ERRMNT 


——w a ee 


> INC TO NEXT ONE 
;FOR STORE 

:FOR ADD 

:STORE BLOCK NUMBER 

:FOR RESETS 

> CLEAR HIGH WORD 

sMAKE OFFSET AT BEGINNING 

:POINT TO FIRST RCT LBN 

:GET LBN OF THIS RCT BLOCK 

: STORE BLOCK NUMBER 

;READ RCT OVERLAY 

:D0 IT 

: SEARCH THIS BLOCK 

>GET WRAP FLAG 

-]F BEEN HERE ONCE THEN RCT FULL 
-FOR FIRST RCT BLOCK 

-MAKE WRAP FLAG NON-ZERO 

:READ IT AND CONTINUE 


RESTORE R2 

; SUCCESSFUL RETURN 
zRCT FULL 

;NO SUBCODE 

;ERROR RETURN 


= A A AE 


ee A 


ET A LL LL 
' 


DATA FILE FOR PDP=11 UDA DISK D MACRO K06.00 25-JUL-81 
wT READ OVERLAY (H1) 


J 8 
15:08:54 PAGE 55 


1 .SBTTL RCT READ OVERLAY (H1) 
; 003715 DMOVLY H1,START | 
‘ : READ A BLOCK OF THE RCT 
& 903047 PUSHA 
7 005055 H 94.94 000055 001153 MOV #H1, CUROVL sFOR INIT 
8 00 104304 001255 MOV BUF PNT ,R4 -GET POINTER TO BLOCK NUMBER 
y aes 114005 CLR RS :CLEAR ERROR COUNTER 
19 Sane 104203 001052 MOV #SCR,R3 :POINT TO CHARACTERISTICS 
11 003065 10838 000001 MOV STCYL (R3),R2 :GET STARTING CYLINDER 
1§ ae 10785 007777 BIC #LO.R2 :CLEAR REST OF WORD 
13 003071 104207 001430 MOV #CONBLK,RO sPOINT TO CONVERT BLOCK 
14 ait de 100672 000001 MOV R2,V171+1(RO) >STORE FOR CONVERT 
1§ 003075 114002 CLR R :FOR STORE 
16 003076 100672 000000 MOV R2,V1(RO) -LOW ORDER ALWAYS 0 
17 003100 104632 11 MOV LBNTRK(R3) ,R2 :GET LBN/TRK 
18 003102 103202 177400 BIC #HIBYTE,R2 >CLEAR HIGH BYTE 
19 003104 100672 000004 MOV R2,V3 (RO) >STORE IN CONVERT BLOCK 
20 003106 OCLOOP: 
$! Babe 022714 CALL CVTSK : CONVERT RCT BLOCK NUMBER AND SEEK 
2 003107 104207 000721 Vv #RDBLK ,RO :PREPARE FOR READ SECTORS 
25 003111 104203 000726 MOV MHSLIM-1,R3 :POINTER TO DUMMY SDI BLOCK 
24 003113 100673 000005 MOV R3,RW.DUM(RO) :STORE IN COMMAND BLOCK 
25 EE: 104143 MOV ),R3 >LO ORDER BLOCK NUMBER 
26 003116 100673 002 MOV R3,RW.LOW(RO) -STORE IN READ COMD BLOCK 
27 Oo t155 104643 000001 MOV ),R3 :H] ORDER BLOCK NUM AND CODE 
28 00 sf 105303 001335 ADD ST.LBN,R3 :ADD STARTING LBN BITS 
$3 003124 100673 3 MOV R3,RW.HI (RO) >STORE IN READ CMD BLOCK 
tat 104203 006621 MOV #ARCTBUF ,R3 *LOAD ADDRESS OF DATA BUFFER 
31 003130 100673 001 MOV R3,RW.BUF (RO) - STORE IN COMMAND BUFFER 
32 003152 10g 013400 MOV ARWCMD ,R :LOAD SDI READ COMMAND 
35 ale 104301 001112 MOV CURTRK,R1 -GET CURRENT HEAD NUMBER IN R1 
34 003136 101013 BIS R1,R3 -SET IT IN COMMAND - 
35 003137 100673 000004 MOV R3,RW.CMD(RO) : STORE BACK 
% 003141 104207 000721 READ11: MOV #RDBLK, :MAKE SURE POINTING AT BLOCK 
37 003143 104203 100000 MOV #RDCMD,R3 >MARK AS ONLY REQUEST 
38 eelee 100173 MOV R3, (RO) >STORE IN CMD BLOCK 
aM 146 104302 000740 MOV ' UNIT,R2 -SDI INTERCONNECT 
40 003150 101207 100009 BIS #BIT15,R0 :SET NO REVECTORING 
41 003152 060012 KFC SIP :WAIT FOR PULSE 
¢ oS 153 060002 KFC READ -READ 1 SECTOR 
4 154 115001 TST R1 ANY ERRORS ? 
44 155 053173 BNE os “YES - TRY RECOVERY 
45 156 104173 MOV (RO) ,R3 -GET STATUS WORD 
46 157, ae 010000 BIT MECCF RS sECC ERROR ? 
47 ait abg 013165 BEQ 1$ sNOPE - VERIFY EDC 
48 3106 023027 CALL ECCCK : CORRECT ECC 
49 003163 115001 TST R1 > TEST FLAG 
50 003164 053173 BNE 100$ > UNCORRE C TABLE 
51 165 104202 006621 101$: MOV ARCTBUF ,R2 :POINT TO BUFFER 
52 167 022627 CALL CEDC - COMPUTE EDC 
53 170 106623 000400 (MP .  RW.EDC(R2),R3 *O.K. ? 
54 78 BE BEQ 102$ -YUP = CONSIDER GOOD 
$5 173 106300 001502 001504 100%: CMP RETRY, TMPTRY MAX ? 
176 01713202 BEQ 1$ -YES - TRY SOME RECOVERY 
5 3177 115400 001504 INC TMPTRY > INC RETRY COUNT 


cee een CEO ELE LE LLL LLL 


SEQ 0100 


ras —_—— 


oe 


K 8 
DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 55-1 
RCT READ OVERLAY (H1) 


SEQ 0101 


ee me 





-DO RETRY 

ry eS SA 4 ERO 5 — ae 6 T CURRENT ERROR RECOVERY LEVEi 
28 S0%504 078213 — ye an en « ETNERATIVE THEN FRIED : 
of 80 022612 CALL ERRHND > TRY RECOVERY 

$5 998518 117409 851505 pee nec ‘DECRENENT 17 

° 003312 oostet oe - BR READ11 sRETRY | 

o? Baas, ; : COUNTER 

INC R5 : INCREMENT BAD 

re 093914 106308 001244 215" 9 fate ALL BAD ? ei 

69 903549 0h2303 001242 MOV ARCTFMT,R3 =SIZE OF TABLE - R4 -> BLOCK NUMBER 
% $5 3554 021506 CALL DADD :ADD TO POINT TO NEXT COPY 
oy OO Rsse 102309 90103 001505 Spy RECOV_RECTMP TD RECOVERY LEVELS 

rs Souser oosice “NS BeBe Ben ea 

oe BOaSe0 14000 001504 Sesame CLR TMPTRY :-FOR RESET 

ie O03 3 102300 001503 001505 a4 RECOV REC TMP : GET RECOVERY LEVELS 
Bee fs _— a 

46 003501 oT 852 = CALL DSLBt*: -GET BACK TO PREVIOUS COPY 
81 003242 022714 CALL CVTSK >CONVERT AND SEEK 

oe 863505 104207 000721 i eek -RO POINT +0. ene, BLOCK 

ee 903509 10230 s6i112 MOV CURTRK.R2 :GET CURRENT ee 

85 os 51 194098 BIS R2,R3 >SET TRACK FOR WRI 

86 003252 100673 0004 MOV R3,RW. CMD (RO) :ST IN COMMAND BLOCK 

87 003254 104203 006621 MOV ARCTBUF ,R3 -POINT TO BUFFER 

88 003256 1006735 000001 MOV R3,RW.BUF (RO) -STICK IN COMMAND BLOC 

89 003260 104143 MOV »R3 -GET LOW ORDER HEADER 

90 61 100673 000002 MOV R3,RW.LOW(RO) STORE IN WRITE BLOCK 

91 oO 3565 104643 000001 MOV 4) ,R3 -GET HIGH ORDER 

9 265 105303 001335 ADD ST.LBN,R3 ADD STARTING LBN BITS 

3% 88 267 10067 00003 MOV R3,RW.HI (RO) :STORE IN WRITE BL ic. 

94 00 $$ 100853 726 MOV Cag age ae Get over ae cerereR 

MOV ; : OMMAND 

a fh $e 100Gn8 001333 WRIT12: MOV HPREA,R3 :GET HEADER PREAMBLE 

97 00 a 104304 001334 MOV DEREA. Re : GET bare PREAMBLE 

vs bossos |Scsur 83904 roy anak nase CNURE POINTING AT BLOC 
104 3309 Waste seas afc we “WAIT FOR SECTOR PULSE 
102 310 : XFC WRITE :WRITE SECTOR 
103 003311 115001 TST R1 : ANY ERROR 7 
104 00331 b1 3538 BEQ ne :NO ~ SKIP RETRY 
105 Sete 106300 001502 001504 CMP RETRY, TMPTRY :MAX 2 
106 00331 599399 BEQ 1$ -YES - TRY SOME RECOVERY 
107 00337 113800 001504 it ray INC RETRY COUNT 
108 ooeese ba “GET CURRENT ERROR RECOVERY LEVEL 
190 oe 104503 ~~ ss ad  abailaia -[F NEGATIVE THEN FRIED 

Ty 003325 022612 CALL ERRHND : TRY RECOVERY 

112 ; 174000 001504 CLR TMPTRY :-FOR INIT : 
173 vist 117400 001505 DEC REC TMP sDECREMENT I 

114 0033 003275 aR WRITI2 ; 


ana 
— 


ee 
———— ane 
sc iaal sile EC LLL 
2 


LT 


-— oe oe — - -_——_ a i it CE LLL LL LL LL A LLL LLL LE _- —< _ ——--—- - 


L 8 
OR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE 55-2 SEQ 0102 
OVERLAY (H1) 


~" 


003333 23: 
et Ety, 117405 DEC R5 :DEREMENT COUNTER 
003334 003230 BR OCDONE 3 >SEE IF ANY MORE TO DO 
tt ee RLDONE: POPA 
08 % (900000 RETURN zALL DONE 

0 003344 104012 ORF TAL: MOV R1,R2 >XFC ERROR CODE 

1 003345 104201 000016 MOV #14. ,R1 =RCT READ ERROR 

2 003347 022552 CALL ERRMNT sERROR RETURN 


ow 
* 
"4 


siemens inet AEC CC CCE LOL LALLA LO AA ~—— oe 
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— 
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-_—— — eee oe ome ae 


| m 8 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 56 SEQ 0103 
RCT READ OVERLAY (H1) 


| 
| 


003350 


~OODNO WHS wh 


— | 


003047 003212 


ae 


-SBTTL FCT->RCT CONVERSION OVERLAY (F5) 
CONVERT FCT INTO RCT 


DMOVLY F5,START 


age * 


JMP START2 } 7SKIP SUBROUTINES 


o%e 


. “~ ‘s ." S-+ "¢ x * % ~ x % . - % 


re Om 


an —_— — - 


——— 


_ oo - -— as _— 
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DATA FILE FOR PDP-11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 57 SEQ 0104 
“FCT=aRCT CONVERSION OVERLAY (FS) 
1 : 
| 6 : COMPUTE RCT ADDRESS FOR GIVEN LBN 
| 4 003050 115001 HASH: TST R1 NEED TO COMPUTE PRMARY RBN ? 
5 003057 073101 BMI HK IP1 _ =NO = SKIP IT 
6 003052 104207 001052 MOV #SCR,RO -POINT TO oCUBUNIT CHARACTERISTICS 
7 003054 022757 CALL PRIMRB : COMPUTE P Y RBN 
B 003055 104200 000200 000736 HKIP: MOV #128., TEMP : DIVIDE By 128 10 GET BLOCK NUMBER 
9 003060 114000 000737 CLR TEMP+1 -FOR STORE 
10 003062 104300 001151 000731 MOV RE VRBN , DDUMMY “GET PRIMARY RBN 
11 OO 5062 104300 001152 000732 MOV REVRBN+1, spores *GET HIGH ORDER 
12 003070 104204 000 MOV ADDUMMY ,R :FOR DIVIDE 
13 003072 104203 000736 MOV , #TEMP, fo “DITTO 
14 003074 021570 CALL DDIV . :DDUMMY=RCT BLOCK NUMBER 
15 : TEMP=OF F SET 
16 003075 104131 MOV (R3),R1 -GET OFFSET 
17 003076 105011 ADD R1,R1 “MULTIPLY BY 2 
18 003077 100131 MOV R1,(R3) STORE BACK 
19 003100 000000 _ RETURN 
20 003101 104140 001151 HKIP1: MOV (R4) ,REVRBN sFORDIVIDE SETUP 
21 003103 104640 1 001152 MOV 1(R4) ,REVRBN+1 -DITTO 
22 003106 107300 001336 001152 SUB ST.RBN, REVRBN+1 «SUBTRACT STARTING RBN BITS 
2$ 003111 003055 BR HK IP :DO DIVIDE 


4 


EL LOA 


er ee 
ee ee = ~-< 


> 


oe oe a eee 
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, at ee Niet anda 
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SSSSSSSSSSssssssssss 
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DENN ODS SOUS WII OD NOAMNE WN OO NAME WN OOO NOME - 
SN IS oe ue 


oP a a er ee wen, 1, he 
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48 003205 


4 

50 003206 
51 003210 
52 003211 


MOOSR aT 

UNSounoo 
SVASSS 
MUAnn 


OnrnrN- NNO 
MmOoOO WOON 


NIDIPND SNM WU AS A 
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RARWRAE 


— 3 OH mS -20O OO AS |] SO HS RS AS 
ASONO-9-— 
WOUWNN 
-Mn—-o 
OO kW 


104200 
003151 
000000 
104201 


114002 
022552 


622 
007777 
100000 
000000 


000002 
000400 


001477 
001477 
000731 


000732 
000736 
001227 
001253 
000055 
001222 


000002 
000002 


000020 


001477 
001222 


PNGRD : 


EORCT: 


SEARCH FOR OPEN ENTRY IN RCT 


BNE 


B 9 
E FOR PDP=11 UDA DISK D MACRO x06.00 23-JUL-81 15:08:54 PAGE 58 
CONVERSION OVERLAY (F5) 


WRFLG 

R2 

OFFSET ,RS 
R3,R5 


R2,R5 
#BIT8,R5 


FLIP | 
RCTBUF +1(R5) ,R1 
#L0,R1 

A#RC.NUL ,R1 
EORCT 

a 


: CLEAR WRAP FLAG 

sFOR FLOP SET 

>GET OFFSET 

>MOV OFFSET INTO BUFF POINTER 
:ADD FLOP VALUE 

:PAST ONE END (OR BOTH) 

>YUP = FLIP OTHER DIRECTION 
;GET HEADER CODE 

:CLEAR LOW ORDER STUFF 

>END OF RCT ? 

:YUP - WRAP TO FIRST BLOCK 
sFREE ? 

:YUP = ALL DONE 

:GET FLIP VALUE 


sNEGATE IT 

: IF NEGATIVE DON'T INC 

:ADD TO NEXT VALUE 

>DONE EVERY SLOT IN BLOCK ? 
sNOPE - TRY NEXT ONE 


IN THIS SECTION THE BLOCKS ARE PING-PONGED BUT 
THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 
ADDRESS TO LOWEST 


RCTCNT 
RCTCNT R35 


ADDUMMY ,R4 


D 
mateay 
PAGE 
PNGBLK _ 
WRFLG,R3 
PERR 
#2,RCTCNT 


#2,WRFLG 
PNGRD 


#16. ,R1 
R2 
ERRMNT 


- INC TO NEXT ONE 
sFOR STORE 
sFOR ADD 
:STORE BLOCK NUMBER 
:FOR RESETS 
:MAKE IT AT ZERO 
:POINT TO FIRST RCT LBN 
:GET LBN OF THIS RCT BLOCK 
-STORE POINTER TO BLOCK NUMBER 
:RCT READ OVERLAY 


:DO IT 
;SEARCH THIS BLOCK 
;GET WRAP 


FLAG 
_ ~IF BEEN HERE ONCE THEN RCT FULL 


;FOR FIRST RCT BLOCK 
>MAKE WRAP FLAG NON-ZERO 
;READ IT AND CONTINUE 


; SUCCESSFUL RETURN 
;R5=OF FSET 

sRCT FULL 

;NO SUBCODE 

;ERROR RETURN 


FILE 
>RCT 

1 

2 

3 

4 

5 

6 

7 003212 

8 002212 

9 003215 
10 003217 
11 003220 
12 O3556 
13 00322 
14 003225 
15 003226 
16 003250 
17 003232 
18 0032335 
19 003234 
20 0035235 
21 003237 
22 0035242 
235 003244 
24 003245 
25 003247 
26 003252 
2? 003255 
28 003260 
29 003263 
30 003265 
31 003267 
32 003270 
33 003272 
34 003275 
35 003275 
26 ier yee 
37 003501 
38 003303 
39 003304 
40 003307 
41 003311 
42 003313 
43 003316 
44 00845, 
45 003323 

003325 
47 003326 
003327 

49 003331 
50 003332 
51 003334 
26 003336 
53 003340 
54 003341 
55 003343 
56 003344 
§7 003345 


—_ ———EE eee eae 


104200 
104303 


104303 
104303 
104204 


105203 


000014 
001112 


001125 
001126 
007756 
00°56 


000022 
001262 


004535 
000017 


004535 


000044 
001114 
007777 
000000 
001713 


000002 


START2: 
001153 FCTRCT: 


001255 


001262 


001230 


001253 


001255 


FBEGIN: 


FBEG2: 


THIS OVERLAY UPDATE 
IN THE ERRBUF BUFFE 


MOV 
MOV 
PUSH 
MOV 
PUSH 
MO 
PUSH 


ee 
FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE 59 
CONVERSION OVERLAY (F5) 


#F5,CURQVL 
CURTRK,R3 


R3 
CYLNUM,R3 
R3 
CYLNUM+1 ,R3 


R3 

#FCTCNT,R4 
DSUB 

(R4) ,R3 

R35 

FCTCNT . 
ARDBUF , BUF PNT 
#F6,R1 

A 
ARDBUF ,R4 
C512(R4) ,MNCNT 


— #128. ,SECCNT 


LBNLBN , HOLD 
LBNLBN+1 ,HOLD+1 
ATOTRCT,R3 
#HOLD ,R4 

DSUB 


#F7,R1 - 

PAG 

MNCNT ,R3 
FCTSP 

pi ye mesial 


e 


PAGE 

#RDBUF ,FCTPTR 
FCTPTR,R4 
(R4) , CURPBN 
1(R4) , CURPBN+1 
phi aE taal 


CURPBN ,R3 
ASCR+LBNHOST ,R4 


S THE RCT WITH THE SECTORS 


7GET OVERLAY NUMBER 
sGET —— TRACK 


sSAVE I 
:GET LOW ORDER CYLINDR 
: SAVE FOR RESTORE 


iG 
> SAVE FOR RESTORE 
sFOR SUB | 


:DITTO 
;SUB TO GET CURRENT FT BLOCK NUM 
;GET IT 


sFOR LATER RESTORE 

:CLEAR FOR INIT 

:POINT TO BUFFER 

:READ A BLOCK OF THE FCT 
sEXECUTE IT 

sMAKE SURE POINT TO IT 
-GET COUNT OF USED ENTRIES 
:ENTRIES IN A FECT SECTOR 
:GET LOW ORDER COUNT OF LBN'S 
:GET HIGH ORDER 
we 


sDITTO 

:GET STARTING RCT LBN 
:RCT INIT OVERLAY 

: INIT RCT 

-GET COUNT 

:QUIT IF NO ENTRIES 
:POINT TO BUFFER 

sF tT _— OVERLAY 


:D0 I 

sMAKE SURE POINT TO Tl 
3FOR USE 

:GET LOW ORDER PBN 

:GET HIGH ORDER 

:CLEAR THE FCT HEADER CODE 
: COMAPRE 


: YUP 

-OVERLAY TO CONVERT FORM PBN TO OTHER BN 
sEXECUTE IT 

-GET HIGH ORDER CONVERTED BLOCK NUM 
-CLEAR ALL BUT HEADER 

:1S IT AN LBN ? 

-NO - SKIP DOWN 

:POINT TO BLOCK NUMBER 

> COMPUTE RCT ENTRY 

-GET RCT BLOCK 

:ADD TO GET BY FIRST 2 BLOCKS 


nena 


SEQ 0106 


Ee ee 


i: ct LLL LLL LLL LL LLL LLL LL 


D9 
bri FILE FOR PDP-11 UDA DISK D MACRO xK04.00 23-JUL-81 15:08:54 PAGE 59-1 SEQ 0107 
FCT=>RCT CONVERSION OVERLAY (F5) 


58 003347 100142 MOV R3, (RS) STORE BACK 

59 003350 104030 001477 MOV R3,RCTCNT , ; SAVE FOR LATER PNGPNG 

60 003352 ~104203 001227 | MOV #HOLD ,R3 -FOR ADD 

61 003354 -021506 CALL DADD -TO GET LBN OF RCT BLOCK 

62 003355 104040 001253 MOV R4,BUFPNT =STORE POINTER TO BLOCK NUMBER 
63 003357 104201 000055 MOV #H1,R1 :RCT READ OVERLAY 

64 003361 022444 CALL PAGE -EX MECUTE IT 

65 003362 104205 006621 MOV #RCTBUF RS :POINT TO BUFFER 
66 003364 104303 000736 MOV OFFSET,R3 >GET OFFSET 

67 003 105035 ADD R3,R5 :POINT TO ENTRY 

68 003367 - 104653 000001 MOV 1(R5) ,R3 :GET HIGH ORDER 

69 003371 103203 007777 BIC #LO,R3 :CLEAR ALL BUT HEADER 

70 003373 106203 000000 CMP ARC. FRE,R3 :IS IT FREE ? 

1 003375 013666 BEQ FILLIT :YES - FILL IT 

72 003376 106203 040000 CMP #RC.UNU,R3 UNUSABLE RBN ? 

$ 003400 013645 BEQ BADRBN eS - MUST BE SECONDARY 

74 003401 104150 000733 MOV (R5),TEMP2 “ELSE SWITCH 

75 003403 104650 000001 000734 MOV 1(R5),TEMP2+1 *HIGH ORDER 

76 003406 104303 001113 MOV CURBN,R3 -GET NEW RESIDENT LOW ORDER 
77 003410 100153 MOV R3,(R5) -STORE IN RCT 

78 003411 104303 001114 ~ MOV CURBN+1,R3 :-GET HIGH ORDER 

79 003413 107303 001335 SUB ST.LBN,R3 - SUBTRACT STARTING LBN BITS 
80 003415 103203 170000 BIC #HD.CLR,R3Z -CLEAR THE HEADER 

81 003417 101203 020000 BIS ARC.PRV,R3 “MARK AS PRIMARY 

82 003421 100653 000001 . MOV R3,17(R5) -STORE IT 

83 003423 102200 000400 001217 BIT #DLL FLAG : -DID WE CREATE THE FCT ? 

84 003426 015466 BEQ FCTSKP -NO - THEN DON'T CHANGE IT 

85 003427 104302 001255 MOV FCTPTR,R2 -GET POINTER TO CURRENT FCT BLOCK POS 
86 003431 104623 000001 MOV 1(R2),R3 -GET HIGH ORDER FCT ENTRY 

87 003433 101203 100000 BIS #PRMY ,R3 -MAKE IT SECONDARY | 

88 003435 100623 000001 MOV R3,1(R2) >STORE IT BACK 

89 003437 106202 004535 CMP ARDBUF ,R2 -IS THIS THE FIRST ENTRY IN THE BLOCK 
90 003441 053460 BNE FCTSK1 “NOPE WE'RE SAFE 

91 003442 104300 000731 001115 MOV DDUMMY , CURXBN : SAVE RCT BLOCK NUMBER 

92 003445 104300 000732 001116 MOV DDUMMY+1, CURXBN+1 :DIT TO 

93 003450 024015 CALL FIXFCT YUP - GOT. SOME GYRATIONS TO DO 
94 003451 001115 000731 MOV CURXBN , DDUMMY ; RESTORE RCT BLOCK NUMBER 

95 003454 104300 001116 000732 MOV CURXBN+1, DDUMMY +1 -DITTO 

96 003457 003466 sag BR FCTSKP -THEN CONTINUE ON 

97 003460 107202 000001 FCTSK1: SUB #1,R2 “POINT BACK ONE 

98 003462 104123 ; MOV (R2) ,R3 GET HIGH ORDER 

99 003463 103203 100000 3 BIC APRMY ,R3 -CLEAR PRIMARY IF SET 
100 003465 1001235 | MOV R3, (R2) -STORE IT 
101 003466 024056 FCTSKP: CALL RCTWRT “WRITE OUT SHARNGED BLOCK 
102 003467 023112 CALL PNGPNG *FIND IT A NEW HOME 
103 003470 104204 006621 MOV ARCTBUF ,R4 “POINT TO BUFFER 
104 003472 105054 ADD R5,R4 “ADD OFFSET 
105 003473 104202 000733 MOV ATEMP2 ,R2 -POINT TO OLD RESIDENT 
106 003475 104123 MOV (R2) ,R3 “GET LOW ORDER 
107 003476 100143 MOV R3, (R4) -PUT IT IN 
108 003477 104623 000001 MOV 1(R2) ,R3 -GET HIGH ORDER 
109 003501 103203 170000 BIC #HD.CLR.R3 :CLEAR HEADER 
110 003503 107203 030000 BIS ARC. oe -MARK AS SECONDARY 
111 003505 100643 001 MOV R3,1(R4 - :STORE IT 
112 003507 003717 BR XYZ “SKIP TO END 
113 003510 106203 060000 NOLBN: CMP #HD .RBN.R3 -BAD RBN ? 

174 003512 053717 BNE XYZ “NO - THEN DON'T CARE ABOUT IT 


saa 


ee —————E al ——-_— 
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ee oe 0 tre eee ee 


SATA FILE FOR PDP-1 SEQ 0108 
FCT=>RCT CONVERSION OVERLAY (F5) 

115 003513 104302 001114 MOV CURBN+1,R3 >GET HEADER 
116 003515 103203 170000 BIC #HD.CLR,R3 :CLEAR IT 
117 003517 104030 001114 MOV R3, CURBN+1 :STORE IT BAC 
118 003521 104201 177777 MOV #-1,R1 >SIGNAL RCT BLOCK 
119 003523 1046204 001113 MOV ACURBN,R4 >POINT TO BLOCK NUMBER 
120 003525 023050 CALL SH >GET RCT BLOCK AND OFFSET 
121 003526 104143 MOV (R4) ,R3 ->GET RCT BLOCK 
158 Bong! | 105203 000002 ADD #2,R3 :ADD TO GET BY 2 BLOCKS 
123 003531 100143 MOV R3,(R4) : STORE BACK 
124 003532 104030 001477 MOV R3,RCTCNT :SAVE FOR LATER PNGPNG 
125 003534 104203 001227 MOV #HOLD ,.R3 sFOR ADD 
126 003536 021506 CALL DADD >TO GET LBN OF RCT BLOCK 
127 003537 104040 001253 MOV R4 BUF PNT :STORE POINTER TO BLOCK NUMBER 
128 003541 104201 000055 MOV #H1,R1 :RCT READ OVERLAY 
129 003543 022444 CALL PAGE :D0 IT 
130 003544 104205 006621 MOV ARCTBUF RS :POINT TO BLOCK 
131 003546 104304 000736 MOV OF FSET,R4S -GET OFFSET 
132 003550 105045 ADD R4,R5 -POINT TCO ENTRY 
133 003551 104653 000001 MOV 1(R5) .R3 :GET HIGH ORDER 
134 003553 103203 007777 BIC #LO,R >CLEAR ALL BUT HEADER 
135 003555 106203 000000 CMP #RC.FRE,R3 :I1S IT FREE ? | 
136 003557 053567 BNE RRPL -NO - RELOCATE CURRENT RESIDENT 
137 003560 103203 170000 BIC — MHD. CLR,R3 -CLEAR THE HEADER 
138 003562 101203 040000 BIS #RC.UNU,R3 -MARK AS UNUSABLE 
139 003564 100653 000001 MOV R3,1(R5) STORE IT BACK 
140 003566 003717 BR XYZ BRANCH TO THE END 
141 003567 104650 000000 0007335 RRPL: MOV O(R5), TEMP2 :GET LOW ORDER CURRENT RESIDENT 
142 003572 104650 000001 000734 MOV 1(R5) , TEMP2+1 -GET HIGH ORDER 
143 003575 103203 17000 BIC #HD.CLR,R3 CLEAR HEADER 

144 003577 101203 040000 BIS #RC.UNU,R3 MARK AS UNUSUABLE 
145 003601 103203 007777 BIC #L0,R3 CLEAR LOW ORDER 
146 003603 100653 000001 MOV R3,7(R5) STORE IT BACK 
147 003605 114003 CLR R3 >CLEAR FOR STORE 
148 003606 100153 MOV R35, (R5) CLEAR LOW ORDER 
149 003607 024056 CALL RCTWRT :WRITE UT BLOCK 
150 003610 023112 CALL PNGPNG :-FIND IT A NEW HOME 
151 003611 104204 006621 MOV #RCTBUF .R4 -POINT TO BUFFER 
136 003613 105054 ADD RS -POINT TO ENTRY 
153 003614 104202 000733 MOV ATEMP2,R2 -POINT TO OLD RESIDENT 
154 003616 104123 MOV (R2) ,R3 “GET LOW ORDER 
159 003617 100143 MOV R3,(R4) sPUT IT IN 
156 003620 104623 001 MOV 1(R2) .R3 :GET HIGH ORDER 
157 003622 103203 170000 BIC MHD. CLR,R3 -CLEAR HEADER 
158 003624 101203 030000 BIS #RC.SND,R3 :MARK AS SECONDARY 
159 003626 100643 000001 MOV R3,1(R4) :STORE IT 
160 003630 102200 000400 001217 BIT ADLL. FLAG :DID WE CREATE THE FCT ? 
161 003633 013644 3 BEO FCTSLP -NO - THEN DON'T CHANGE IT 
16 003634 104302 001255 MOV FCTPTR,R2 :GET FCT PPOINTER 
163 003636 107202 000001 SUB 1,R2 :POINT BACK ONE 
164 003640 104123 MOV (R2) ,R3 >GET HIGH ORDER 
165 003641 1032035 100000 BIC APRMY ,R3 >CLEAR PRIMARY IF SET 
166 003643 100123 MOV R3,(R2) STORE IT 
167 003644 003717 FCTSLP: BR KYZ -GO TO END 
168 003645 023112 BADRBN: CALL PNGPNG :FIND A NEW SLOT 
169 003646 104204 006621 MOV ARCTBUF ,R4S -POINT TO BUFFER 
170 003650 105054 ADD R5.R4 -POINT TO ENTRY 
171 003651 104202 001713 MOV 4#CURBN,R2 -POINT TO OLD RESIDENT 


F 9 
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FCT=>RCT CONVERSION OVERLAY (F5) 


172 003653 
173 003654 
.74 003655 
175 003657 
176 00566" 
177 003663 
178 003665 
179 003666 
| 180 003670 
181 003671 
182 003673 
183 003675 
| 184 003677 
| 185 003701 
| 186 003703 
| 187 003706 
| 188 003707 
189 003711 
190 003713 
191 003715 
192 003717 
193 003720 
194 003723 
195 003725 
196 003726 
197 003730 
198 003731 
199 003734 
200 003735 
201 0035740 
sng 003742 
203 003743 
- 204 003744 
205 0035746 
206 003747 
207 003750 
208 003755 
209 003754 
210 003757 
211 003761 
212 003762 
213 003763 
214 003765 
215 003770 
216 003772 
217 003773 
218 003774 
219 003776 
220 004000 
221 004001 
$$§ 004003 
223 004005 
224 sobs 
2e5 010 
| 326 004013 
| B27 004014 
228 
| 
| 
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003276 


022444 
1040 

104200 
104201 
022444 


104030 
104030 


104030 
104030 


104030 
104300 
022251 
000000 


001113 
OO Re 


000001 
000400 


001255 


000092 
001262 


001454 
000400 
004535 
000030 
001255 


000400 


001217 


001255 


001217 
001253 


001217 


001253 


001253 


001100 


FILLIT: 


KYZ: 
xYZ1: 


FRSKP: 


F RDONE : 


FCTSP: 


(R2) ,R3 


#HD.CLR.RS 

ARC.PRV,R5 

R3,1(R5) 

ADLL.FLAG 
Y 


X 
FCTPTR,R3 


* 1(R3) ,R4 


#DLL.FLAG 
FBEGIN 

#RDBUF ,BUF PNT 
BFOLR1 

PAGE 

FBEGIN 
FCTPTR,R4 
UPDATE 


FBEG2 
ADLL,FLAG 
FCTSP 
#RDBUF , BUF PNT 
#F9,R1 
PAGE 

R3 : 
R3,FCTCNT 
#PBNBUF ,BUF PNT 


#F6,R1 
PAGE 


R3 
R3,CYLNUM+1 
R3,ISEEK+2 
R3 


R3.CYLNUM 
R3,I1SEEK+1 
R3 


R3,CURTRK 
CURGRP, ISEEK+3 
SEEK 


7GET LOW ORDER 
PUT IT 


sMARK AS SECONDARY 

sSTORE IT 

:GO TO END 

;GET LOW ORDER BN 

;PUT IN RCT 

:GET HIGH ORDER AND HEADER 
: SUBTRACT STARTING LBN BITS 
>;CLEAR HEADER 


; STORE IN RCT | 
;DID WE CREATE THE FCT ? 
7NO - THEN DON'T CHANGE IT 
;GET POINTER TO FCT. ENTRY 
:GET HIGH ORDER 

:SET AS PRIMARY 

; STORE BACK 

;WRITE OUT BUFFER 


‘ ;POINT TO TO NEXT ENTRY 


;DEREMENT IT 3 

:IF ZERO THEN DONE 
;DECREMENT IT 

IF STILL IN BLOCK - CONTINUE 
:DID WE CREATE ‘HE FCT ? 
;NO - THEN DON'T CHANGE IT 
:POINT TO BUFFER 

sFCT WRITE OVERLAY 
sEXECUTE IT 

;AND GET A NEW ONE | 
sELSE GET CURRENT POINTER 
:LET HOST KNOW STILL ALIVE 
;AND DO NEXT ENTRY 

;DID WE CREATE THE FCT ? 
3NO - THEN DON'T CHANGE IT 
;POINT TO BUFFER 

:WRITE LAST FCT BLOCK 


;bd0 IT 

;GET CURRENT FCT BLOCK NUM 

RESTORE IT ' 

:RE-READ IT IN CASE OF HEADER CHANGES 


_;FCT READ OVERLAY 


;DO IT 

:GET HIGH ORDER CYLINDER 
;STORE IT 

;STORE IN SEEK COMMAND 
:GEYT LOW ORDER 

RESTORE IT 

:STORE IN SEEK COMMAND 
:GET CURRENT TRACK 
:RETORE IT 

;RESTORE GROUP 

RESTORE TO PREVIOUS CYLINDER 


SEQ 0109 


G 9 
(DATA FILE FOR PDP=11 UDA DISK D MACRO 06.00 23-JUL-81 15:08:54 PAGE 59-4 
“FCT=>RCT CONVERSION OVERLAY (F5) | 


229 : 
240 : THIS ROUTINE FIXES UP THE PREVIOUS BLOCK 
31 : OF THE FCT. IT CLEARS THE PRIMARY FLAG OF THE 
$34 ; LAST ENTRY. 
234 004015 104204 001256 FIXFCT: MOV #FCTCNT,R4S :FOR SUBTRACT 
235 604017 104203 001470 MOV #TWOC RS =DOUBLE WORD OF 2 
236 006021 021524 CALL DSUB SUBTRACT TO GET BACK TO RIGHT NUM 
| 237 004022 104200 007275 601253 MOV # IMAGE , BUF PNT sUSE IMAGE BUFFER 
238 004025 104201 000017 MOV #F6,R1 >FCT READ OVERLAY 
| 239 004027 022444 CALL PAGE sREAD THE BLOCK 
240 004030 194203 007275 MOV #IMAGE ,R3 -POINT TO BUFFER 
| 241 004032 105203 000377 | ADD #255.,R3 -POINT TO LAST ENTRY 
004034 104632 000001 MOV 1(R3),R2 :GET HIGH ORDER 
004036 103202 100000 BIC APRMY ,R2 :CLEAR FLAG 
004 100622 000001 MOV R2,1(R3) :STORE IT BACK 
. 104200 007275 001253 MOV # IMAGE , BUF PNT -STORE BUFFER POINTER 
104201 000030 MOV #FOLRI : FCT WRITE GVERLAY 
? CALL PAGE :WRITE IT BACK OUT 
48 00405 DUBINC FCTCNT , GET FCTCNT BACK TO NORMAL 
49 004055 000000 RE TURN , 


ee i LL CC LL LL LL CLL LL LE LL LCL LL 
WRINRINIMIMD 
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DATA FILE FOR PDP=-11 UDA DISK D MACRO x04.00 23-JuUL-81 15:08:54 PAGE 60 SEQ O11) 
FC T=>RCT CONVERSION OVERLAY (F5) » 


- <a tt, ait Ne te EL I EI e a rt 


2 : WRITE AN RCT BLOCK : 
i : DDUMMY = BLOCK NUMBER TO BE WRITTEN 
5 004056 114005 RCTWRT: CLR RS >CLEAR ERROR COUNTER 
&é 004057 104050 001245 MOV RS NEXT 1 : INIT NEXT COPY COUNTER 
7 004061 104204 000731 MOV ADDUMMY RS sPOINT TO RCT LBN 
8 004063 104203 001052 RCTRLP: MOV #SCR,R3 =POINT TO CHARACTERISTICS 
9 004065 104207 001430 MOV 4CONBLK ,R0 :POINT TO CONVERT BLOCK 
10 004067 104632 11 MOV LBNTRK(R3),R2 :GET LBN/TRACK 
11 004071 103202 177400 BIC #MHIBYTE,R2 :CLEAR REST OF WORD 
12 004073 100672 MOV R2,V3(RO) :FOR CONVERT 
13 004075 104632 000001 MOV STCYL(R3),R2 : STARTING CLYLINDER 
14 006077 103202 007777 BIC #LO,R2 :CLEAR REST OF WORD 
1§ 004101 100672 00000 MOV R2,V1+1(RO) > STORE 
16 004103 114002 CLR R :FOR STORE 
17 004104 100672 000000 MOV R2.V1(RO) :LOW ORDER ALWAYS 0 
18 004106 022714 CALL CVTSK : CONVERT AND SEEK 
19 004107 104207 000721 MOV #WRBLK RO :POINT TO COMMAND BLOCK 
20 004111 104203 122400 MOV A#WRCMD ,R3 :GET WRITE COMMAND 
21 004113 104302 001112 MOV CURTRK,R2 >GET CURRENT TRACK 
$§ 004115 101023 BIS R2,R3 :SET TRACK FOR WRITE 
25 004116 100673 000004 MOV R3,RwW.CMD(RO) -STORE IN COMMAND BLOCK 
24 004120 104202 006621 MOV ARCTBUF ,R2 >POINT TO BUFFER 
25 004122 022627 CALL CEDC >COMPUTE EDC - RETURNED IN R3 
26 004123 100623 000400 MOV R3,RW.EDC(R2) :STORE IT 
27 004125 100672 000001 MOV R2,RW.BUF (RO) -STICK IN COMMAND BLOCK 
28 004127 104143 MOV (R4),R3 :GET LOW ORDER HEADER 
29 004130 100673 000002 MOV R3,RW.LOW(RO) -STORE IN WRITE BLOCK 
30 004132 104643 000001 MOV 1(R4) R53 :GET HIGH ORDER 
31 004134 105303 001335 ADD ST.LBN,R3 :ADD STARTING LBN BITS 
32 004136 101203 000000 BIS #HD.LBN,R3 -SET HEADER 
$3 004140 100673 000003 MOV R3,RW.HI (RO) :STORE IN WRITE BLOCK 
3% 004142 104203 000726 ‘MOV #HSLIM-1,R3 GET DUMMY SDI POINTER 
35 004144 100673 000005 MOV R3,RW.DUM(RO) -POINT IN COMMAND BLOCK 
36 004146 104303 001333 WRITE3: MOV HPREA,R3 >GET HEADER PREAMBLE 
37 004150 104304 001354 MOV DPREA,R4 :GET DATA PREAMBLE 
38 004152 104302 0740 MOV UNIT,Re -SET UNIT 
39 004154 104207 000721 MOV #WRBLK ,RO -MAKE SURE POINTING AT BLOCK 
40 004156 101207 100000 BIS #BIT15,RO >SET NO REVECTORING 
41 004160 060012 KFC SIF -WAIT FOR SECTOR PULSE 
42 004161 060003 KFC. WRITE >WRITE SECTOR 
43 004162 115001 ; TST R1 :ANY ERROR ? 
44 0041635 014205 ’ BEQ RWGOOD : NOPE 
45 004164 106300 001502 001504 CMP RETRY, TMPTRY :MAX ? 
46 004167 014173 BEQ 1 -YES - TRY SOME RECOVERY 
47 004170 115400 001504 INC TMPTRY INC RETRY COUNT 
48 004172 004146 | BR WRITES :DO RETRY 
49 004173 104303 001505 1$: MOV RECTMP,R3 -GET CURRENT ERROR RECOVERY LEVEL 
50 004175 074204 BM! 2$ - IF NEGATIVE THEN FRIED 
51 004176 022612 CALL ERRHND > TRY RECOVERY 
26 pee ire 114000 001504 CLR TMPTRY -FOR INIT 
5 201 117400 001505 DEC REC TMP :DECREMENT IT 
54 006203 004146 BR WRITES >RETRY 
55 004204 2$: 
56 0042046 115405 INC RS :YUP = INCREMENT COUNTER 
§7 004208 115400 001245 RWGOOD: INC NEXT 1 : INCREMENT IT 


DATA FILE FOR 
*°T<>RCT CONVE 
55 Ose 
59 004211 
60 004214 
61 004216 
62 004220 
63 004221 
64 ane She 
65 004225 
66 9g HA 
67 0042 
68 004232 
69 004233 
70 004235 
71 004237 
72 004240 
73 004242 
74 004243 
75 004244 
004245 
77 (04267 


—0O—-—- 0-0" 0 |" 0 = ia 
— 
Re 


_—) 
S 
© 


SERRE 
SSSss 


IURRER 


001504 
001503 001505 
000731 


001242 
001244 001245 
001244 
001245 
001242 
001245 


000017 


RCFXLP: 


RWT DON: 
RCWERR: 
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VERLAY (F5) 


TMPTRY 
RECOV,RECTMP 
#DDUMMY ,RS 
ARCTFMT RS 


DADD 
FCTCPY,NEXT1 
RCTRLP 
FCTCPY,RS 


ADDUMMY ,RS 
ARCTFMT,R3 
DSUB 

NEXT1 
RCFXLP 


R1,R2 
#i5.,R) 
ERRMNT 


:ANY REAPEATS ? 
“TO GET IT BACK 
“DITTO 


;SUB IT 
sREPEAT 


7XFC ERRGR CODE 
:RCT WRITE ERROR 
sERROR RETURN 


ia 


7FOR RESET 
;GET RECOVERY LEVELS 
; ADD 


SEQ 0112 


ia ~—— - 


1 9 
OR PDP=11 UDA DISK D MACRO x04.00 23-JuUL-81 15:08:54 PAGE 6] 


DATA FILE F SEQ 0173 
RCT INITIALIZE OVERLAY (F7) 
1 _SBTTL RCT INITIALIZE OVERLAY (F7) 
§ 004250 DMOVLY F7,START 
: INITIALIZE RCT TC ALL UNUSED 
6 008062 104200 000014 001153 RCTINI: MOV #F5,CUROVL :FOR OVERLAY INIT 
7 003052 104203 000400 MOV #256. ,R3 -SECTOR WORD COUNT 
8 003054 114001 CLR R1 -FOR INIT OF RCT WORDS 
9 003055 104204 004535 MOV #RDBUF ,R4 s BUFFER 
10 003057 100241 MOV R1,(R4)+ :STORE IN BUFFER 
11 003060 117403 DEC R3 :DECREMENT COUNTER 
12 003061 053057 BNE RCLP CH BACK TILL DONE 
14 003062 104201 001305 MOV ASERNUM,R1 :POINT TO SERIAL NUMBER 
14 003064 104204 004535 MOV A#RDBUF ,R4 :POINT TO BUFFER 
15 003066 105204 000000 ADD #RSER,RS :POINT TO SERIAL NUMBER 
16 003070 104205 000004 MOV #4,R5 : COUNTER 
17 003072 104212 MOV (R1)+,R2 :GET WORD 
18 003073 100242 MOV R2, (R4)+ : STORE WORD 
19 003074 117405 DEC R5 >DECREMENT COUNTER 
20 003075 053072 BNE 6$ > CONTINUE TILL DONE 
21 003076 104303 001112 MCV CURTRK,R3 :GET CURRENT TRACK 
22 003100 PUSH R3 :SAVE IT 
23 003101 104303 001125 MOV CYLNUM,R3 :GET LOW ORDER CYLINDR 
24 003103 PUSH R :SAVE FOR RESTORE 
25 ei 104303 001126 MOV CYLNUM+1,R3 -GET HIGH ORDER 
26 003106 PUSH R3 >SAVE FOR RESTORE 
27 003107 104300 001135 MOV RBNLBN, TEMP -GET NUMBER OF RBN‘'S IN LBN AREA 
28 003112 104300 001136 MOV RBNLBN+1, TEMP+1 :HIGH ORDER 
29 003115 104204 000736 MOV ATEMP RS :FOR ADD 
30 003117 104200 000400 MOV #256. , DDUMMY >2 BLOCKS(CONTROL) WORTH OF RBN’S 
31 003122 114000 00073 CLR - DDUMMY+1 >CLEAR HIGH ORDER 
32 003124 104203 000731 MOV ADDUMMY ,R3 :FOR ADD 
33 003126 021506 CALL DADD -ADD TO GET ‘'REAL’’ NUMBER OF RBN‘S 
34 003127 104300 001133 MOV LBNLBN, HOLD >GET LOW ORDER COUNT OF LBN‘S 
3§ 003132 104300 001134 MOV LBNLBN+1 ,HOLD+1 :GET HIGH ORDER 
%6 003135 104203 001475 MOV #TOTRCT,R3 :FOR SUBTRACT 
37 003137 104204 001227 MOV MHOLD ,R4 :DITTO 
38 elas 021524 CALL - DSUB , -GET STARTING RCT LBN 
39 003142 104300 001227 001113 MOV HOLD, CURBN >GET STARTING RCT BLOCK NUMBER 
40 003145 104300 001227 001115 MOV HOLD, CURLBN :ALSO SAVE 
41 003150 104300 001230 001114 MOV HOLD+1 , CURBN+1 >GET HIGH ORDER 
42 002153 104300 001230 001116 MOV HOLD+1, CURLBN+1 ;AND SAVE 
43 003156 114000 001501 CLR COUNT :CLEAR BLOCK COUNTER 
44 905160 104203 001052 MOV #SCR,R3 :POINT TO CHARACTERISTICS 
45 162 104207 001430 MOV #CONBLK ,RO -POINT TO CONVERT 8LOCK 
46 003164 104632 011 MOV LBNTRK(R3) ,R2 -GET LBN/TRACK 
47 003166 103202 177400 BIC #HIBYTE.R2 :CLEAR HIGH BYTE 
48 003170 100672 000004 MOV R2,V3(RO) _ FOR CONVERT 
49 003172 104632 1 MOV _—_— STC YL(R3),R2 :STARTING CLYLINDER 
50 003174 103202 007777 BIC #LO,R2 :CLEAR REST OF WORD 
51 003176 100672 O 1 MOV R2,V1+1(RO) : STORE 
26 003200 114002 CLR R 3 >FOR STORE 
§3$ 003201 100672 000000 MOV R2.V1(RO) LOW ORDER ALWAYS 0 
54 003203 114005 RCINLP: CLR RS :CLEAR ERROR COUNTER 
5§ 003204 104050 001245 MOV R5,NEXT1 > INIT COPY COUNT 
56 003206 104204 001113 RCLP2: #CURBN,R4 -FOR CONVERT 
57 003210 022714 CALL CVTSK -CONVERT AND SEEK 





nna A 
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RCT INITIALIZE OVERLAY (F7 





$8 003211 104207 000721 MOV #WRBLK ,RO :POINT TO COMMAND BLOCK 
39 003213 104205 122400 MOV #WRCMD ,R3 >GET WRITE COMMAND 
003215 104302 001112 MOV CURTRK ,R2 : :GET CURRENT TRACK 
| 61 003217 101023 BIS R2,R3 SET TRACK FOR WRITE 
003220 100673 MOV R3,RW.CMD(RO) : IN COMMAND BLOCK 
63 003222 104202 004535 MOV ARDBUF ,R2 :POINT TO BUFFER 
003224 022627 CALL CEDC :COMPUTE EDC - RETURNED IN R3 
65 003225 100623 000400 MOV R3,RW.EDC(R2) : STORE IT 
003227 100672 O MOV R2,RW.BUF (RO) :STICK IN COMMAND BLOCK 
67 003231 1043035 001113 MOV CURBN,R3 :GET LOW ORDER HEADER 
003233 100673 000002 MOV R3,RW.LOW(RO) :STORE IN WRITE BLOCK 
69 003235 104303 001114 MOV CURBN+1,R3 :GET HIGH ORDER 
70 003237 105303 001335 ADD ST.LBN,R3 :ADD STARTING LBN BITS 
71 003241 101203 000000 BIS #HD.LBN,R3 :SET HEADER 
72 003243 1Cue 73 000003 MOV R3,RW.HI (RO) :STORE IN WRITE BLOCK 
73 003245 104203 000726 MOV #HSLIM-1,R3 :GET DUMMY SDI POINTER 
74 003247 100673 000005 MOV R3,RwW.DUM(RO) :POINT IN COMMAND BLOCK 
75 003251 104303 001333 WRITES: MOV HPREA,R3 :GET HEADER PREAMBLE 
76 003253 104304 001334 MOV DPREA,R4 :GET DATA PREAMBLE 
77 003255 104302 090740 MOV UNIT,R2 :-SET UNIT 
78 003257 104207 100721 MOV #<WRBLK'BIT15>,R0O :MAKE SURE POINTING AT BLOCK 
79 003261 060012 KFC SIP :WAIT FOR SECTOR PULSE 
80 003262 060003 XFC WRITE :WRITE SECTOR 
81 003263 115001 TST R1 -ANY ERROR ? 
82 003264 013306 BEQ NOGOOD - NOPE 
83 003265 106300 001502 001504 CMP RETRY, TMPTRY :MAX ? 
84 003270 013274 BEQ 1$ :YES — TRY SOME RECOVERY 
85 003271 115400 001504 INC TMPTRY > INC RETRY COUNT 
86 003273 003251 BR WRITES :DO RETRY 
87 003274 °104303 001505 1$: MOV RECTMP,R3 -GET CURRENT ERROR RECOVERY LEVEL 
88 003276 073305 BMI 2$ - IF NEGATIVE THEN FRIED 
89 003277 022612 CALL ERRYND - TRY RECOVERY 
90 003300 114000 001504 CLR TMPTRY :FOR INIT 
$1 003302 117400 001505 DEG REC TMP :DECREMENT IT 
92 003304 003251 BR* WRITES *RETRY 
93 003305 23: 
94 003305 115405 INC R5 :YUP - INCREMENT COUNTER 
95 003306 115400 001245 NOGOOD: INC NEXT 1 : INCREMENT IT 
96 003310 114000 001504 CLR TMPTRY . :FOR RESET 
97 003312 104300 001503 001505 MOV RECOV,RECTMP -GET RECOVERY LEVELS 
98 003315 104204 001113 MOV ACURBN RS :FOR ADD 
99 003317 104203 001242 MOV HRCTFMT .R3 iF D 
100 003321 021506 CALL DADD >POINT TO NEXT COPY 
101 Oo aa5s 106300 001244 001245 CMP FCTCPY.NEXT1 =DONE THIS SECTOR ? 
102 0033 053206 BNE RCLP2 *NO —- WRITE NEXT FCT COPY 
103 ith: 106305 001244 CMP FCTCPY,RS >ERROR ON EVERY WRITE ? 
104 003330 013462 BEQ RCINER : YUP - BIG TROUBLE 
105 003331 106200 000040 001217 BIT #RCINIT, FLAG :ALREADY FIXED IT UP 
106 003334 053553 BNE 4$ -YUP - NO NEED TO DO IT AGAIN 
107 003335 104204 000736 MOV ATEMP RG -FOR SUBTRACT (RBN'S NOT DONE) 
108 005357 104200 000200 000731 MOV #128. ,DDUMMY : SUBTRACT ONE BLOCKS WORTH 
109 003342 114000 000732 CLR DDUMMY +1 -FOR CLEAR 
110 003344 104203* 000731 MOV ADDUMMY ,R3 >FOR SUBTRACT 
1171 003346 021524 CALL DSUB : SUBTRACT 
112 007347 021626 CALL DCMP IN LAST BLOCK ? 
173 003350 073353 BM! 4$ : NOPE 
114 003351 013353 BEQ 4$ - IF EQUAL - NO PARTIAL BLOCK 


DATA FILE F 

RCT INITIALIZE RLAY 
115 003357 023466 
116 003355 115000 
117 pt EEE, 053366 
118 003356 114005 
119 003357 104204 
120 003361 104201 
121 003365 100245 
122 003364 117401 
123 003365 053363 
124 003366 102200 
125 003371 053420 
126 003372 
127 003377 104300 
128 003402 104300 
129 003405 106300 
130 003410 013442 
131 003411 060022 
13 003412 115400 
133 003414 106300 
134 003417 053203 
135 003420 
136 003421 104030 
137 003423 104030 
138 003425 
139 003426 104030 
140 003430 104030 
141 003432 
142 003433 104030 
143 003435 104300 
144 003440 022251 
145 003441 
146 003442 104202 
147 003444 104204 
148 003446 114003 
149 003447 114005 
150 003450 101205 
151 003452 100243 
13¢ 003453 100245 
153 003454 117402 
154 003455 053452 
155 003456 101200 
156 003461 003411 
157 003462 104012 
158 003463 104201 
159 003465 022552 


OR PDP=-11 UDA DISK D 
OVE 7) 


(F 
001501 


004535 
000004 


001125 
001076 


0011 


12 
001463 


000200 
004535 


100000 


000100 


000017 


———— ee ee 
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001501 


001100 


001220 


4$: 


S$: 


7$: 


RCLP4: 


RCLP6: 


RCF IX: 


RCLP3: 


RCINER: 


LL 


F IXBLK 

COUNT 

7$ 

R5 

#RDBUF , RS 

#4 ,R1 

R5,(R4)+ 

Ri 

5$ 

ARCINDN,FLAG1 
CLP6 : 


R 
CURLBN 
CURLBN , CURBN 


CURLBN+1 , CURBN+1 


RCTLBN, COUNT 
RCF IX 
UPDATE 


COUNT 
RCTFMT , COUNT 
aa 


R 
R3,CYLNUM+1 
R3,I1SEEK+2 
R3 


R3,CYLNUM | 
R3,ISEEK+1 
R3 


R3,CURTRK 
CURGRP, ISEEK+3 
SEEK — 


#128. .R2 
#RDBUF . 


R5 
R5 
#RC.NUL ,R5 


R3,(R4)+ 
mar snn?* 


RCLP3 
#RCINDN, FLAG! 
LP4 


:YES = CHANGE HEADERS T0 NULL 
>ON FIRST BLOCK ? 

:NO - NO NEED TO FIX UP 

sFOR BLOCK FIXUP 

:POINT TO BUFFER 


; COUNTER 

;CLEAR DATE AREA 
;DECREMENT COUNTER 
;CONT TILL DONE 


;YUP - REINIT BLOCK 
;LET HOST KNOW STILL ALIVE 
i? BLOCK COUNTER 


DONE ? 
:NOPE - DO NEXT SECTOR 
:GET ge ORDER CYLINDER 


; STORE I 
;STORE IN SEEK COMMAND 


:GET CURRENT TRACK 

sRETORE IT 

;RESTORE GROUP NUMBER 
sRESTORE TO PREVIOUS CYLINDER 


: INIT COUNT 
> INIT POINTER 
>FOR STORE 


:DITTO 
:SET NULL HEADER 
: STORE LGW ORDER 


;DECREMENT COUNTER 

;LOOP UNTIL DONE 

:DONE ALL NON-PAD - ONE MORE THEN FINISH 
;CONTINUE TILL DONE ALL SECTORS 

:XFC ERROR CODE 

:RCT INIT ERROR 

;ERROR RETURN 


sa me eee 00 a ee em ee 


——— _ 


—_ —- oe coe inane eae UN 
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; FOR PDP-11 UDA DISK D MACRO x04.90 23~-JUL-81 15:08:54 PAGE 62 


DATA FIL 
RCT INIT ALIZE OVERLAY <‘F7) 

! : 

Z : CHANGE UNUSED ENTRIES TO NULL HEADERS 

5 : 

6 003466 114002 FIXBLK: CLR R2 :FOR LOW ORDER 

7 003467 114005 CLR R5 “FOR HIGH ORDER 

8 003470 104303 000736 MOV TEMP ,R3 =GET REMAINDER FROM TEMP 

9 003472 101205 100000 BIS #RC.NUL 85 >SET IN NEW HEADER CODE 

10 003474 104204 004535 MOV ARDBUF ,R4 “POINT TO BUFFER 

11 003476 104201 000200 MOV #128..R1 : TOTAL COUNT 

1¢ 003500 107031 SUB R3,R1 *SUBTRACT USED ENTRIES 

13 003501 105033 ADD R3,R3 “ADD TO GET OFFSET (MULT BY 2) 
14 003502 105034 ADD R3,RS “POINT TO FI®ST UNUSED ENTRY 
15 003503 100242 FIXLP: MOV R2,(R4)+ :STORE LOW ORDER 

16 003504 100245 MOV RS, (R4)+ =STORE HIGH ORDER 

17 003505 117401 DEC R1 :DECREMENT COUNT 

18 003506 053503 BNE FIXLP :LOOP TILL DONE 

19 003507 101200 000040 001217 BIS ARCINIT, FLAG :SET DONE IT 
20 003512 000000 -RETURN | | 





oe ee ~ ene 


ee ee 


A 
c 


CMI ONS 


TA 
T 


ILE FOR 


S 
Ww 
Ww 
_ 
AN 


! 

4 

3 

4 

5 

6 

7-005047 1042 

8 003052 104300 

9 003055 114000 
10 003057 11400 
1 Bae te 
1 603064 10420 
14 003066 10067 
15 003070 10430 
16 003072 10067 
17 003074 10430 
18 003076 1006 
19 003100 02271 
20 003101 10420 
21 003103 10420 
$$ 003105 10067 
25 003107 10430 
24 003111 10067 
25 003113 10430 
26 003115 10550 
27 003117 10120 
28 003121 10067 
29 003123 10430 
$0 003125 10067 
31 003127 10420 
$2 003151 10430 
$3 003135 10101 
34 005154. 1006 
$5 003136 10420 
%6 003140 10420 
$7 003142 10017 
38 0031435 10430 
39 003145 10120 
40 003147 06001 
41 003150 06000 
42 003151 11500 
43 003152 05317 
44 003153 10417 
45 003154 10220 
46 003156 01516 
47 003157 02302 
48 003160 11500 
49 003161 5317 
50 003162 10430 
51 alee 02262 
26 3165 | 
5 OOs16¢ 01322 
54 003170 106 
5§ 003173 0131 
56 sl 1156 
57 003176 31 


2 


S 


RS 


WN SAAN 


* 
a 
ll 


Ww 


WWwNT Se NS 


SSNS 


000017 0601153 
001256 000731 
000732 


000740 
100000 


010000 


001253 

000400 

001502 001504 
001504 | 


® 


ASAE RENE gp A OA AL IE ILL LA NE I OY 


F OL. OOP : 


READ?: 


101$: 


100$: 


a 


- SBTTL 
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F PDP=11 UDA DISK D MACRO X04.00 23-JUL~81 15:08:54 PAGE 63 
READ OVERLAY (F6) 


FCT READ OVERLAY (F6) 


DMOVLY F6,START 
READ A BLOCK OF THE FCT 


RS => BUFFER 

MOV #F6, CUROVL 
MOV FCTCNT, DDUMMY 
CLR DDUMMY +1 

CLR RS 

MOV ADDUMMY ,R4 
MOV LBNCYL,R3 
MOV ACONBLK RO 
MOV R2,V1(RO) 
MOV LBNCYL+1,R3 
MOV R3,V1+1(RO) 
MOV SECTRK,R3 
MOV R3,V3(RO) 
CALL CVTSK 

MOV ARDBLK,RO * 
MOV #HSLIM-1,R3 
MOV R3,RwW.DUM(RO) 
MOV D Y,R3 
MOV R3,RW.LOW(RO) 
MOV DDUMMY +1,R35 
ADD ST.XBN,R 

BIS #HD . XBN,R3 
MOV R3,RW.HI (RO) 
MOV BUFPNT ,R3 
MOV R3,RW.BUF (RO) 
MOV #RWCMD ,R3 

MOV CURTRK,R1 
BIS R1,R3 

MOV R3,RW. CMD(RO) 
MOV #RDBLK RO 
MOV #RDCMD,R3 
MOV R3, (RO) 

MOV IT,R2 

BIS #B1T15.RO 
XFC IP 

XFC READ 

TST R1 

BNE 100$ 

MOV (RO) ,R3 

BIT MECCF,R3 

BEQ 101$ 

CALL ECCCK 

TST R1 

BNE 100$ 

MOV BUF PNT ,R2 
CALL CEDC 

CMP RW. EDC(R2) ,R3 
BEQ 102$ 

CMP RETRY. TMPTRY 
BEQ 1$ 

INC TMPTRY 

BR 


READ? 


= CLEAR ERROR COUNTER 


sFOR CONVE 

:GET LBN CYLINDERS 

:POINT TO CONVERT BLOCK 9 
-STORE IT FOR CONVERT Pt 
a ORDER rs 


;STORE IT 

:GET SECTORS/ TRACK 

:STORE FOR CONVERT 

7CONVERT FCT BLOCK NUMBER AND SEEK 

;PREPARE FOR READ SECTORS 

;POINTER TO DUMMY SDI BLOCK 
ORE IN COMMAND; BLOCK 

;LO ORDER BLOCK NUMBER 

:STORE IN READ COMD BLOCK 

7GET HIGH ORDER 

;ADD STARTING LBN BITS 

;HEADER CODE 

zSTORE IN READ CMD BLOCK 

:GET BUFFER POINTER 

STORE. BUFFER ADDRESS IN COMMAND BUFFER 

;LOAD SDI READ COMMAND 

:GET CURRENT HEAD NUMBER IN RI 

:SET IT IN COMMAND 

; STORE BACK 

s;MAKE SURE POINTING AT BLOCK 

: QUEST : 


sANY ERRORS ? 

sYES - TRY RECOVERY 
;GET STATUS WORD 
;ECC ERROR 


-TES . 

: UNCORREC TABLE 
:POINT TO BUFFER 
; COMPUTE EDC 


ye 
_ YUP = CONSIDER GOOD 
; *MAX > 


“YES - TRY SOME RECOVERY 
“INC RETRY COUNT 
“DO RETRY 


SEQ O117 


ee ge se ee + er — 
- - —— ~ 


te ee 
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DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JuL-81 15:08:54 PAGE 63-1 
FCT READ OVERLAY (F6) 


58 00317 
59 003201 
60 003 
41 
O¢ 65 
463 003207 
64 003210 
65 003210 
66 003211 
&7 O3 1? 
68 005214 
79 008220 
7 O33 23 
73 0032 
74 3 
75 3227 
76 003231 
77 003234 
78 pete t he 
79 003236 
i Sts 
Be 005045 
84 003246 
85 003250 
86 00325 
87 00325 
88 003255 
89 003257 
9 Oe 61 
91 63 
38 03265 
>) 3267 
94 003271 
95 $555 
96 75 
97 003277 
es Hd 
ss 003208 
101, 903509 
103 003313 
104 003314 
105 8 315 
106 00331 
107 00331 
108 035¢¢ 
110 003325 
111 03 
113 Mittey 
174 003322 


104302 
073210 
114 


117400 
003156 


RAGRE ARRVERARS 
—Noof $3 SSSS9 oO 
&frwsSw © Wen 


sRaR pat ussgereERer soar eeRRScReE NCE 
3 3 SAS {SSSSSNSNSS NON NNOOO 
MmuNw— NIP NSN BS AAAI NAA AAAI NN 


022612 
000 


007505 


001504 
001505 


000004 


se 

ts 
— 

Sti 
Wn ww 


Ss 
Nm 
WUT Ww 


WN 


38838 
= 


001502 
007504 
007505 


001504 


001505 


001505 


001504 


1$: 


2$: 


1028: 


ODONE : 


we iTEs: 


RECTMP ,R3 
2$ 


ERRHND 
TMPTRY 
RECTMP 
RFAD7 


R5 
FCTCPY.RS 
OF ATAL 
#DDUMMY ,RS 
#FCTFMT RS 
DADD 


TMPTRY 
RECOV,RECTMP 
FOLOOP 


TMPTRY 
halon 


OL DONE 
A#DDUMMY RS 
#FCTFMT ,R3 


R2,R 

R3_RW. CMD<RO) 
BUFPNT.R 

R3, RW. BUF (RO) 
DDUMMY ,R 

R3, Rd. LOW (RO) 
DDUMMY +1 ,R3 
ST. XBN,R3 


#HD . XBN,R5 
R3,RW.HI (RO) 
#HSLIM-1 ,R3 
R3,RW.DUM(RO) 
HPREA,R3 


SiP 
WRITE 
R1 


2$ 

<7 hited Lialalads 
TMPTRY 
WRITES 
eR 


E RRHND 
TMPTRY 


;GET CURRENT ERROR RECOVERY LEVEL 


:I1F NEGATIVE THEN 
TRY a 


FOR INI 
;DECREMENT IT 
;RETRY 


AL. ; 

;YUP = ALL OVER 
:PCINT TO COUNT 
;SIZE OF TABLE 


FRIED 


; INCREMENT BAD COUNTER 
;ALL BAD ? 


: L 
z;ADD TO POINT TO NEXT COPY 


;RESET RETRY LEVE 


L 
;DITTO — LEVELS 


;BRANCH BAC 
:FOR RESE 

;GE 
sANY E 


SET 
T RECOVERY LEVELS 
RRORS ? 


;NO - EXIT 
:POINT TO BLOCK COUNT 


;SIZE OF TABLE 
;GET BACK TO PREV 
;CONVERT AND SEEK 


;POINT TO COMMAND 
OMMAN 


;GET WRITE C 


IOUS COPY 
BLOCK 
D 


;GET CURRENT TRACK 


:SET TRACK FOR WR 
: STORE IN COMMAND 
:GET BUFFER ADDDR 
;STICK IN COMMAND 


ITE 
BLOCK 

ESS 
BLOCK 


:GET LOW ORDER HEADER 
:STORE IN WRITE BLOCK 


;GET HIGH ORDER 


; ADD tigi t ny XBN BITS 


; HEADER 


COD 
:STORE IN WRITE BLOCK 
;GET DUMMY SDI eae ack 


“POINT IN COMMAND 


BLOC 


:GET HEADER PREAMBLE 
:GET DATA PREAMBLE 


7 SET UN 

sMAKE SURE POINTI 
:SET NO REVECTORI 
sWAIT FRO SECTOR 
sWRITE SECTOR 

: ANY ERROR ? 

>NO - SKIP RETRY 
MAX ? 


NG AT BLOCK 
NG 
PULSE 


“YES - TRY SOME RECOVERY 


> INC RETRY COUN 
;DO RETR 


; Y 
:GET CURRENT ERROR RECOVERY LEVEL 
3; 1F NEGATIVE THEN FRIED 


; TRY RECOVERY 
:FOR INIT 


SEQ 0118 


——— ne 


AS OE A I A tt 


a ee ee LN -— = - 
re a ee ew ee 


‘ ‘8-2 :* SEQ 0119 
DATA FILE FOR PDP=-11 UDA DISK D MACRO x046.00 23-JUL-81 15:08:54 PAGE 6 
FCT READ OVERLAY (F6) 
C RECTMP sDECREMENT IT 
116 003386 003304 i - 43 WRITES | sRETRY | 
it, Op eae -DEREMENT COUNTER 
119 oO 3820 §03297 : BA FacOME >SEE IF ANY MORE TO DO 
120 803 1 115600 001256 ~ OLDONE: INC FCTCNT : INCREMENT IT 
131 903343 06000 RETURN on rt; enn ie 
158 geet 013365 — — Bro OQUIT :IF YES THEN IT'S ALL OVER 
126 003347 102200 000020 O0Ci217 BIii ein D> — age ud GUESS? 
, BEQ U : - 
156 ob 33e5 07300 002004 001217 BIS #F CTBAD+BSTGS FLAG >SET FCT BAD FLAG 
137 $c¢ 103200 000001 001217 BIC #FCTAVL,FLAG :NO MORE FCT 
128 oO 38e 000090 RE TURN RETURN 
129 003362 104012 OGUIT: MOV R1,R2 >XFC ERROR CODE 
1 336 1042C1 000021 MOV #17.,R1 3 at gt Bl 
151 803368 093852 CALL ERRMNT ;ERRO 


nnn 
eel 

cece cee a EC LL ALLL eae 
eet ee 


| mee 


— ee ee ee —_—— —— 


D 10 
DATA FILE FOR PDP="1 UDA DISK D 3 ag K06.00 23-JUL-81 15:08:54 PAGE 64 SEQ 0120 


—— ee ee ee ee 


GET FCT BLOCK FOR D/KBN FORMAT (G6 


ee ee —-——— 


: 
ae 


88888883383 
SERRE 


w 
S399 
SoRu—ONUWN 
o--o0-- SS | OO | OO 


MOCO 


029 NO ASW OO OW NO Wf Wi $ O O@ NO wf wnr 


SSS8888s8s8sss 
4 +3000 


I SOU Oe ~~ 3 4 3 1 2 
oO 
SIU — SUT 


wr 


SRSRER 
CS aweS 


R 
3 
WANA" 


ed ed ee a ed od wd =O 
MmOoO00O-00-"ONN 
BORRESOS SE RUS 

Oem - Om 

SARL AR 

OWA & 


VIN 
MOO 
mn 


000033 
091263 


6 
061321 
001322 
000001 
001256 
000002 


000023 
001256 


001155 


001424 


DLERR: 


‘CALL OVRLAY 


_SBITL GET FCT BLOCK FOR D/XBN FORMAT (G2) ~ 
GET’S ONE FCT BLOCK FROM HOST FOR D/BN FORMATTING 


DMOVLY G2.START 


SIGNAL OVERLAY 11 

:POINT TO MAINT BUFFER 
;GET DUP CODE 

:STORE IT 

:GET 'F * IDENTIFIER 
>STORE IT IN MESSAGE 

:GET BLOCK NUMBER DESIRED 


MOV #G2,CUROVL 
MOV #DMBUF ,R5 
MOV FCMSG,R3 


MOV R3,2(R5) sSTORE IT 

CALL S ;SEND REQUEST 

CALL RC VMN ;RECEIVE ANSWER 

MOV 2(R5) ,.R3 :GET BLOCK COUNT RECEIVED 
BEQ DLERR s;ERROR IF ZERO 


MOV 3(R5) R35 
MOV R3,OVLBLK+1 
CLR OVLBLK+2 
MOV #257. ,OVLBLK 
MOV MOVLBLK,RS 
MOV #PBNBUF R53 


;GET HOST ADDRESS 
:STORE IN OVERLAY BLOCK 
;ZERO HIGH ORDER 

;GET LENGTH 

7FOR OVERLAY ROUTINE 
:POINT TO BUFFER 

:GET THE SECTOR 


RETURN 
MCV #19. ,R1 :SIGNAL DLL ERROR 
MOV FCTCNT .R2 ;BLOCK FAILED ON 


CALL ERRMNT ;ERROR RETURN 


FILE F 

CT BLOCK FOR LBN FORMA 

i 

5 . 

é 

7 003120— 

g 

5 se 

10 

11 003047 104200 000036 
12 603052 114000 001256 
13 903054 104200 005152 
14 003057 104201 000017 
15 003061 022444 

16 003062 102200 000001 
17 003065 013243 

18 003066 104207 005152 
19 003070 104173 
20 003071 106203 1247364 
21 003073 013101 
22 003074 106203 074161 
23 003076 013101 
354 003077 115003 
25 003100 053243 
26 003101 104673 000025 
27 003103 102203 100000 
28 003105 053243 
29 003106 104673 000016 
30 003110 104030 001237 
31 003112 053116 

5 003113 101200 000002 
33 003116 114003 

34 003117 100173 

35 003120 104203 005152 

% 003122 105203 000002 
37 003124 104204 001305 
38 003126 104205 000004 
39 003130 104232 
40 003131 100242 
41 003132 117405 
42 003133 053130 
43 003134 104200 005152 
44 003137 104201 000030 
45 003141 022444 
46 003142 115 001237 
4? 003144 013237 
48 003145 104200 000001 
49 003150 104200 005152 
50 003153 104201 000017 
51 003155 022444 

52 903156 102200 000001 
53 003161 013243 

54 003162 104204 005152 
§§ 003164 105204 000376 
56 003166 104203 001154 
57 003170 021626 


001153 
001253 


001217 


13$: 


0071217 
12$: 


8$: 


007253 


001256 


001253 RLOOP: 


001217 


— -< 
OR PDP=17 UDA ie K06.00 23-JUL-81 15:08:54 PAGE 65 
GS) 


.SBTTL GET FCT BLOCK FOR LBN FORMAT (G3) 


GET RIGHT FCT BLOCK FOR LBN FORMATTING 


DMOVLY 


G3,START 


463, CUROVL 
FCTCNT 
#PBNBUF , BUF PNT 
RFE,RI 

PAGE 
MFCTAVL,FLAG 
GD 


N 

#PBNBUF ,RO 
(RO) ,R3 
#M512,R5 
13% 


#M576,R3 

13$ 

R3 

NGD 
FCTFLG(RO) ,R3 
ANOFCT R35 


NGD 
C512(RO) ,R5 


12$ 
#FCTEMT ,FLAG 
R3 


8$ 
#PBNBUF , BUF PNT 
#FORI 

PAGE 

FCNT 

RDONE 1 

#1 ,FCTCNT 
#PBNBUF ,BUF PNT 
#F6,RI 


PAGE 
#FCTAVL FLAG 


aii 


:FOR CURRENT OVERLAY 

sFOR FIRST FCT BLOCK 

sPOINT TO BUFFER 

sFCT READ OVERLAY 

;READ IT IN 

sFCT STILL HERE ? 

;NOPE - CAN IT 

:POINT TO BUFFER 

:GET FORMAT MEDIA WORD 

“15 I} Si¢ ? 

sYUP - O.K. 

-IS IT 576 ? 

:YUP - O.K. 

-IS IT FORMAT IN PROGRESS 
sNOPE - FCT NO GOOD 

:GET FLAG WORD 

:1S THERE REALLY AN FCT ?? 
:NOPE - FIND OUT IF WE QUIT OR ROUGH IT 
>GET COUNT OF USED ENTRIES 
>STORE IT 

- JF NOT ZERO THEN ENTRIES EXIST 
:SET EMPTY FLAG 

sFOR FCT INIT 

> SIGNAL FORMAT IN PROGRESS 
:POINT TO BUFFER | 
:POINT TO SERIAL NUMBER 
:SERIJAL NUMBER BLOCK 


“STORE WORD 
: DECREMENT COUNTER 


R 
:FCT WRITE OVERLAY 
:D0 IT 
-ANY ENTRIES ? 


“DO THE READ 

“STILL HAVE FCT ? 

“NOPE - CAN IT 

“POINT TO THE BUFFER 
“POINT TO LAST ENTRY 
“HIGHEST PBN IN LBN AREA 
“1§ IT RIGHT BLOCK ? 


F 10 
macro x06'00 23-JuL-81 15:08:54 PAGE 65-1 


DATA FILE FOR PDP=11 UDA DISK D SEQ 0122 
XT FCT BLOCK FOR LBN FORMAT (G3) 

58 003171 03317€é BPL BLKFND :YES - FIND RIGHT ENTRY 

59 003172 107200 000200 001237 SUB #128. .,F CNT | > SUBTRACT ONE BLOCKS WORTH 

60 eg 003150 “5R RLOOP ->BRANCH BACK 

41 003176 104200 000200 001500 SiLKFND: MOV #128. ,PCNT >FOR INIT OF COUNT 

62 00320" 1042 005152 MOV #PRNBUF ,R4 >POINT TO PBN BUFFER 

63 ee asue 104647 000001 RLOOP1: MOV 1(R4&) RO :GET HIGH ORDER 

+e ~ 205 106071 MOV RO,R1 :SAVE IT TEMPORARILY 

65 003206 103207 170000 BIC #HD.CLR,RO -CLEAR FOR COMPARE 

66 003210 100647 000007 MOV RO,1(R4) :STORE IT BACK 

67 e510 104203 907154 Vv aH R :POINT TO HIGHEST PBN 

68 003214 921626 CALL DCMP :COMPARE | 

69 003215 033233 BPL RDONE > IF LESS THAN OR EQUAL THEN FOUND FIRST | 8BN 

70 003216 100641 00000 MOV -R1,1(R4) STORE HEADER BACK 

71 Oo 3650 117400 001500 DEC PCN >DECREMENT COUNT 

?2 0903222 117400 001237 DEC F CNT :DEC IT 

73 003224 105204 900002 3 ADD #2,R4 :POINT TO NEXT ENTRY 

74 pases 106200 000001 001237 CMP #1 ,F CNT CONT AT 17 | 

75 003231 013233 BEG RDONE -YUP = THEN LAST ENTRY IS IT 

76 003232 0032035 BR RLOOP1 > TRY NEXT ENTRY 

77 003233 100641 000001 RDONE: MOV R1,1(R4) - :STORE HEADER BACK 

78 003235 104040 001223 MOV R4,BADPBN -MAKE CURRENT BAD POINTER 

79 003237 104300 001237 001311 RDONE*: MOv F CNTF CTREV :FCT ENTRY COUNT FOR LATER USE 

80 it Tes 000000 RE TURN RETURN 

81 003263 102200 000020 001217 NGD: BiT #GOBAD , FLAG -CONTINUE AS BEST GUESS ? 

B2 003246 015256 BEQ RQUIT -NOPE - GIVE UP 

83 003247 101200 002004 901217 BIS #F CTBAD+BSTGS,FLAG SET BAD FCT FLAG 

84 00 $26 103200 000001 001217 | BIC #FCTAVL. FLAG : s;NO MORE FCT . 

85 003255 000000 | RETURN 

86 003256 194201 000022 RQUIT: MOV #18..R1 :ERROR CODE 

87 003260 114002 CLR R2 :NO SUBCODE 

BB 00326" 02255¢ CALL ERRMNT >ERROR RETURN 


a 


EE A OS A SS a 


EE nal nn 


- 
- 


* 
ae 


FILE FOR PDP=17 UDA DISK DO MACRO 104 


_EANUP OVERLAY (G6) 


z 

§ 003262 

4 i 

7 

8 

9 003067 104200 
19 003052 104207 
11 003054 1046303 
1¢ 003056 100673 
13 003060 115003 
14 003061 013201 
15 003062 194202 
16 003044 104200 
17 003067 114000 
18 003071 114000 
19 003073 104200 
29 003076 104200 
21 003101 104304 
22 003103 023715 
23 003104 104205 
24 003106 104653 
25 003110 103203 
26 003112 106203 
27 003114 1053144 
28 003115 104153 
29 003116 100223 
30 003117 104653 
31 003121 103203 
6 003123 101203 
33 003125 100223 
34 003126 104303 
35 005130 100273 
%6 003131 104303 
37 003133 100223 
38 003134 1174600 
39 003136 117400 
40 003140 073200 
41 003141 104303 
42 003143 013165 
43 005144 
44 Oe es 105205 
45 0035153 117400 
46 003155 053106 
47 003156 115400 
48 003160 106300 
49 003163 53076 
50 003164 03174 
51 003165 023270 
26 op ai9 104200 
5 3171 104202 
$4 003173 003144 
55 003174 106200 
56 003177 073201 
§7 003200 023270 


100 001501 


000002 001477 
000200 001454 


001106 
001107 


001501 
001472 


001507 


000002 
001454 


001477 
001242 001477 


000100 001501 
0062046 


000100 001501 


CLELP2: 


CLELP: 


CLESKP: 


CLSKP2: 


CLEDON: 
CLSKP4: 


- SBTTL 


G 10 
.00 23-JuL~-81 15:08:54 PAGE 66 


RCT CLEANUP OVERLAY (G4) 


RCT CLEANUP AND FINAL STATS 


DMOVLY 


G4,START 


#64, CUROVL 
#DMBUF ,RO 
SNDCNT.R3 
R3,SND1(RO) 
R3 


CLSKP3 
#REVBUF ,R2 
#64. , COUNT 
CURRBN 


CURRBN+ 1 

#2 ,RCTCNT 
#128. ,SECCNT 
RCTCNT,R4S 
RRC 

#RCTBUF ,R5 
71(R5) ,R3 
#LO,R5 
#RC.SND,R3 


FOR OVERLAY IDENT 
s;MESSAGE BUFFER 


sANY SECONDARY REVECTORS ? 


:STORE IT 
sARE THERE ANY ? 
sNOPE - JUST EXIT 


“POINT TO REVECTOR BUFFER 
“COUNT OF MAX TO REVECTOR AT ONCE 


;CLEAR FOR INIT 
sHIGH ORDER TOO 
: INIT RCT BLOCK 


;GET COUNT OF RCT ENTRIES 
:GET BLOCK NUMBER TO READ 


sREAD IT 
sPOINT TO BUFFER 


;GET LOW ORDE 


R 
;STORE IN REVECTOR BUFFER 


;GET HIGH ORDER 
;CLEAR HEADER 


;SET AS AN LBN REVECTOR 
;STORE IT 
ieee LOW ORDER RBN NUMBER 


>STORE IT 
:GET HIGH ORDER 
: STORE IT 


:DEC NUM OF EMPTY REVECTOR SLOTS 


:DECREMENT IT 
> IF ZERO THEN DONE 
sFULL BLOCK ? 


“IF 0 = PROCESS BLOCK 


: INCERMENT IT 


;POINT TO NEXT RBN ENTR 


;DECREMENT IT 


:DO NEXT ENTRY IF NOT ZERO 


; INCREMENT IT 
“DONE ? 


;DONE ? 
;NOPE - READ IN NEXT BLOCK 


:ELSE DONE 
:PROCESS THE BLOCK 
>FOR COUNTER INIT 
:RESET POINTER 
:BRANCH 3ACK 


26 ee ee ee 


ILE 

LE ANUP 

$8 005201 
59 00 $38 
60 00320 

41 205 
6¢ 003207 
63 003210 
64 003212 
65 003214 
66 003215 
67 $8554 
68 003221 
49 003223 
70 003225 
71 e356) 
72 0032351 
73 003233 
74 003235 
75 003237 
76 003241 
77 eEsce 
78 003245 
79 003247 
80 003252 
81 Oo esee 
82 005255 
83 003257 
84 Ese. 
85 003262 
86 003264 
87 003265 
BB 003266 
89 003267 


024222 
024510 


104 501 


REEF 
sig 


_ 
S 
rs 5 
WADA AAR AAU - = 


SSsoV2SoooOO OOOO OOOOO “00 
PES OSRSSRESESSESE 
EXSRENG BRE SOE BS So 


a ee ee oe re ee 


001217 


LO LS A LS TT 


CL SKPS: CALL 


CALL 


H 10 
FOR PDP-11 UDA DISK D MACRO K04.00 23-JUL-81 15:08:54 PAGE 66-1 
OVERLAY (G6) 


FCTCK 


Re 

LBNBAD ,R3 
R3,LBD(RO) 
RCTBAD ,R3 
R3,RBD (RO) 
R2,RBD+1 (RO) 
DABAD ,R3 


R3, DAD (RO) 
R2_DBD+1(RO) 
XBBAD 


aR 

R3,XBD (RO) 
R2,XBD+1(RO> 
RTYCNT,R3 
R3.RTCNT (RO) 
MBSTGS,FLAG 
GDF CT . 
#2,R2 
R2,FCT(RO) 
AL DONE 

#71 ,R2 
R2,F CT CRO) 
SNDMNT | 


annie 


sVERIFY FCT 
7 VERIFY RCT 


;STORE IT 


“FOR CLEAR OF BUFFER 
“GET COUNT OF REVECTORED LBN'S 


:STORE IN BLOCK 
;RCT a; oe BAD 


;STORE I 

:CLEAR OTHER ERROR 
;DBN BLOCKS BAD 
:STORE IT 
:CLEAR OTHER COUNT 
:XBN LOCKS BAD 
sSTORE IT 

: CLEAR OTHER ERROR 
sRETRY COUNT 
sSTume a0"? | 
:DID WE USE FCT ? 


: YUP 
sNOPE - FLAG AS 2 
;STORE IT 


SKIP GOOD FCT FLAGCIN 


“STORE IT 
“SEND I 


;SEND IT 
;DISCONNECT/SPINDOWN DRIVE 
>MAKE -SURE QUITS NICELY 


; DONE 


- a nae —aae 


88888888S83ssq 
ONO AW NU 


WwW &ho = NUA NUMa 


SPRPUNLSSS LETRA LESSIEARANVLS SONI AKU SOON AEN =O OMNES Wy + 
888838888885 
WENAAA AA AA 


ee Ee 
ee ee nee ere eee; 


SESSERRAG 
WwW OO Fw 


WA AIANAIN AINA AWWW 
a a a et ot 3 Ot 
oO 
ws 
SF 


SSSSSSSSSseesssesss 
SESSaxna 


EEEESE 


EFEEESESE 
ASRAVLSNAEVS 


A 


S88888S8Sss 


PRERREE 
SSSEFSS 


ot  — — — 8 2 -4 OE ~~) 2 4 2 
RSPARRANSS 
AOMVMVAYIWENMTY 
WNOOWOD “Om 

NMPNIWW WN iP 


SSSRSSSLSSRSSSSNFPSSLER SESS 
Seeateeeheaeghe eEsaecnaaneanse tee 


es 


000736 


001504 


I 1 
D4 DIS D MACRO 006.00 23-JUL-81 15:08:54 PAGE 6 


0 
7 


PROCESS REVECTOR BLOCK 


Ci. EWRT: PUSHA 
MOV #RE VBUF RS 
MOY COUNT, TEMP 
CLHERE: MOV 2(R4) .R2 
MOY 3(RS) RS 
BIS #HD .RBN,R 
MOV #PBNBUF ,R5 
MOV #RBNRPT ,R1 
WLO0P: MOV R2,(R5)+ 
MOV R3,(R5)+ 
DEC R1 
BNE wi OOP 
MOV #SCR,R3 
MOV LRNTRK ‘R3).R2 
BIC MHIBYTE.R2 
MOV #CONBLK ,RO 
MOV R2,V3(RO) 
MOV STCYL(R3) ,R2 
BIC #LO.R2 
MOV R2,V147 (RO) 
CLR Re . 
. MOV ~~ R2,V1CRO) 
CALL CS 
MOV AWRBLK,RC 
MOV MWRCMD R35 
MOV CURTRK ,R2 
BIS R2.R3 
MOY 23, Rw.CMD(RO) 
MOV #PBNBUF ,R2 
CALL CEDC 
MOV R3,RW.EDC{R2) 
MOV R2, RW. BUF CRO) 
MOV ).R 
MOV R3,RW.LOWC(RO? 
MOV 1(R4&),R 
ADD ST.LBN. 
MOV R3,RW.HIC(RO) 
MOV MHSLIM-1,R3 
MOV R3,Rw.DUMCRO) 
V R4 , DDUMMY 
WRITES: MOV HPREA,R3 
V DPREA,R4 
MOV UNIT .R2 
V #ARALK ,RO 
BIS #BITIS,RO 
XF C SIP 
XFC WRITE 
TST Rj 
BEQ —1$ 
CMP #MAXTRY, IMPTRY 
BEO 1$ 
INC TMPTRY 
i" me WRITES 


sPOINT TO BUFFER 
;GET COUNT 


“GET LOW ORDER RBN 
“GET HIGH ORDER RBN 
“SET IN HDR CODE 


:POINT TO BUFFER 


; ILL DONE 
:POINT TO CHARACTERISTICS 
;GET LBN/TRACK 

:CLEAR HIGH BYTE 

:POINT TO CONVERT BLOCK 
:FOR CONVERT 

: STARTING CLYLINDER 
‘i REST OF WORD 


7FOR STORE 

;LOW ALWAYS ZERO 

: CONVERT AND SEEK 
zPOINT TO COMMAND BLOCK 
7GET WRITE C 


OMMAND 
:GET CURRENT TRACK 


:SET TRACK FOR WRITE 
:STORE IN COMMAND BLOCK 
:POINT TO BUFFER 
-COMPUTE EDC - RETURNED IN R3 
>STORE IT 

-STICK IN COMMAND BLOCK 
:GET LOW ORDER HEADER 
-STORE IN WRITE BLOCK 
:GET HIGH ORDER 

:ADD STARTING LBA BITS 
sSTORE IN WRITE BLOCK 
-GET DUMMY SDI POINTER 
pe di gr COMMAND BLOCK 


; SAVE 
;GET HEADER PREAMBLE 
;GET DATA PREAMBLE 


z UNIT 

:MAKE SURE POINTING AT BLOCK 
:SET NO REVECTORING 

-WAIT FOR SECTOR PULSE 
:WRITE SECTOR 

;ANY ERROR ? 

3NO ~ SKIP RETRY 


;MAX ? 

:YES - GIVE UP 

> INC RETRY COUNT 
:DO RETRY 


VERRAVLSISVSERRAVISSAUEALALISBS 


ANUP OVERLAY (G4) 
003431 11400C 
003433 104304 
poi age 105206 
~ m Bee 
osc, 059808 
003445 023522 
003446 
003454 000000 
003455 104207 
003457 104143 
ares 100673 
003462 104643 
003464 103203 
003466 100673 
003470 104201 
003472 o600¢0 
os 9h 104670 
003476 104670 
003501 104670 
003504 194670 
003507 022251 
003510 115001 
003511 053513 
tats 
003513 104201 

88 003515 104207 
89 003517 104672 
9 003521 022552 


901504 
000731 
000004 


001501 
000100 


001112 
001076 
001077 


CKR: 


J 10 
LE FOR PDP=11 UDA DISK D MACRO x04.00 23-Jul-81 15:08:54 PAGE 67-1 


CLR TMPTRY 

MOV DDUMMY ,RS 
ADD #REVLEN,RS 
INC COUNT 

CMP #64. , COUNT 
BNE CL HERE 


CALL RBNwRT 


;CLEAR RETRY COUNT 
;RESTORE R4 
zPOINT TO NEXT ENTRY 
; INC COUNTER 

;DONE ? 


:NO - REPEAT 
“WRITE GOOD EDC’S TO RAN'S 


CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 


R4 => BLOCK NUMBER 
MOV #CONBLK ,RO 


MOV (R4) ,R3 

MOV R3,V2(RO) 

MOV 1(R4),R3 

BIC #MHD.CLR,R3 

MOV R35.V2+1(RO) 

MOV #SCR.R1 

KFC CvT 

MOV TRK (RO) , CURTRK 
MOV CYL (RO), ISEEK+1 


MOV CYL+1(RO), ISEEK+2 
MOV GRP(RO) , ISEEK+3 


CALL SEEK 
TST RI 
CKR 
RE TURN 
V #10.,R1 
MOV #CONBLK RO 
MOV CYL (RO) -R2 


CALL ERRMNT 


:POINT TO CONVERT BLOCK 
;GET LOW ORDR 

:STORE IT 

sHIGH ORDER 

;CLEAR HEADER 

sSTORE IT 

-POINT TO SUBUNIT CHARACTERISTICS 
; CONVERT IT 

:GET TRACK NUMBER 

-LOW ORDER XYLINDER 

:HIGH ORDER CYLINDR 

:GROUP NUMBER 

:DO SEEK 

;ANY ERROR 

3; YUP 


;SEEK ERROR 
;CONVERT BLOCK 
:CYLINDER FAILD ON 
;ERROR RETURN 


SEQ 0126 


‘ 
ee 


FILE FOR 
CLEANUP OV 
1 003522 
2 003524 
3 003526 
4 003530 
§ 003532 
6 -003534 
7 003536 
8 003540 
9 003542 
10 003544 
11 003546 
12 003550 
13 003552 
14 003554 
15 003556 
16 003560 
17 003561 
18 003563 
19 003566 
20 003571 
21 003573 
22 003575 
235 003576 
24 003600 
25 003602 
26 003604 
27 003605 
28 003607 
29 003611 
30 003613 
31 003614 
32 003616 
33 003620 
34 003622 
35 003624 
36 003626 
37 003630 
38 003632 
39 003634 
40 003636 
41 003640 
42 003642 
43 003644 
44 003645 
45 003646 
46 003647 
47 003650 
48 003653 
49 003654 
50 003656 
51 003657 
26 003661 
53 003662 
S54 003663 
55 003665 
56 0035667 
57 003670 


9 


» 


>I 
< 


REP 
Sar 


ES 


RAR 
OOONMNMNNMNNMNNNNNLIWS 


FSR: 


tte 


PPPRSPSOSSSRSLRSOLLAN 73e 
petutactarentecee cerns ceen® 


NW 
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Ie pe ee Oe kd ed od = = =) 3 = td 3 IO) 
— —~-- O - oO 
STATE sense 

ISVS USISSeS 

MOWNS NOO—WrnN NT 


3 
aes 
MN 


000000 
000002 


00000 
000731 
000733 


900721 


000733 RNWHER: 
734 


60073 


001504 


RANWR® : 


WRIT13: 


1§: 


2$: 


K 10 
eee DISK D MACRO 04.00 23-JsUL-81 15:08:54 PAGE 68 


MRE VBUF ,RS 
#GDBLK R53 


EDC Re 
Re geet ERO) 


RRNTRK(R3) ,R2 
#HIIBYTE.R2 
#CONBLK RO 
R2,V3(RO) 
LBNTRK(R3) ,R2 


R2,V4(RO) 
STCYL(R3) .R2 


#LO.,R2 
R2,V1+1(RO) 


Re 

R2,V1(RO) 
2(R4), TEMP2 
3(R4), TEMP2+1 
R4 ,DDUMMY 


K,R 
R2,RW.BUF (RO) 


#HD. -R3 
R3,RW.HI (RO) 
#HSLIM-1,R3 
R3,RW.DUM(RO) 
HPR 3 


2$ 

RETRY, TMPTRY 
1$ 

TMPTRY 
WRIT13 
RECTMP,R5 

2$ 


WRIT13 


sPOINT TO BUFFER 
:POINT TO GOOD BLOCK 
4A GOOD EDC 


sSTORE I 

>POINT TO CHARACTERISTICS 
;GET RBN/TRACK 

: CLEAR HIGH GARBAGE 
:POINT TO CONVERT BLOCK 
:FOR CONVERT 

:GET LBN/TRACK 

;CLEAR HIGH BYTE 

:SET UP FOR RBN‘S 
sSTARTING CLYLINDER 

: CLEAR REST OF WORD 

- STORE 


:FOR STORE 

;LOW ALWAYS ZERO 
7GET LOW ORDER RBN 
:;GET HIGH ORDER 


SAVE 

:FOR CONVERT 

; CONVERT AND SEEK 
sPOINT TO COMMAND BLOCK 
:GET WRITE COMMAND 


0 
;GET LOW ORDER HEADER 


GET HIGH ORDER 
;ADD STARTING RBN BITS 
:GIVE RBN HEADE 


;GET DATA PREAMBLE 

7 SET UNIT 

;MAKE SURE POINTING AT BLOCK 
;SET NO REVECTORING 

;WAIT FOR SECTOR PULSE 
:WRITE SECTOR 

;ANY ERROR ? 

:NO - SKIP RETRY 

MAX ? 


sMAX ? 

-YES - TRY SOME RECOVERY 

> INC RETRY COUNT 

:DO RETRY 

:GET CURRENT ERROR RECOVERY LEVEL 
: IF. NEGATIVE THEN FRIED 

> TRY RECOVERY 

:FOR INIT 

:DECREMENT IT 
sRETRY 





SEQ O1e/ 
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TA FILE FOR PDP=11 UDA 

ee CLEANUP OVERLAY (G4) 5) 
S8 GO3670 11400C 001504 CLR TMPTRY RESET G' 

$9 003672 104300 001503 001505 MOV RECOV,RECTMP :DITTO Gy, 

60 003675 104304 000731 MOV DDUMMY , RS ) >RESTORE R4 G' 

| 61 003677 105204 000004 ADD MREVLEN,R4S :POINT TO NEXT ENTRY G 
| 62 003701 115400 000736 INC TEMP s INC COUNTER G! 
63 003703 10Gg08 000100 000736 CMP #64. ,TEMP :DONE ? Gi 

64 003706 0535563 BNE RNWHER sNO = REPEAT Gl 

65 003707 104207 001430 MOV #CONBLK,RO -FOR RESET Hi 

66 003711 114002 CLR R2 :DITTO Hi) 

67 003712 100672 900005 MOV R2,V4(RO) RESET FOR NON-RBN'S HI 
003714 RE TURN HI 





FF FF ec re re re emer eo FEET TEESE EELES 





naa A ALLE ALLEL LLL OLE AE  CE 


em 
o® 


—~ 
Www) 


“N 
oO 


Beds 


NNN NS NSN NSN 
oS na a rw 


NAN AAANN NAAN AANA IA 
Oo NVA NUIG SN 


™~ 
oO 
Ww 


S8888S8888S88SSS8SSSSSssssss 
Oo 


S885 


Sseseeeseses 


OooOoCceo 
rorrnn-.--—-- 
VSMrONVIW—O 


SA RAABVS 


o 
we 


Outros 


POPPI SII UIT SBS BS BE BE AWN MMINNNNNNY ee Se 
Se ne Ue DRO HS SH MOU RUN OOO NOUS UN OO NAAR WN SOOMNOVEWN 


SESSEEEEEEE 


So 
Ww 





m 10 
PHP-11 UDA DISK D MACRO x04.00 23-Jui.-81 15:08:54 PAGE 69 SEQ 0129 
ERLAY (G46) 


READ A BLOCK OF THE RCT 
R4 ->BLOCK NUMBER OF RCT. 


RRC: PUSHA & 
114005 CLR R5 = CLEAR ERROR COUNTER 
104203 001052 MOV #SCR.R3 “POINT TO CHARACTERISTICS 
104632 600001 MOV STCYL(R3) ,R2 “GET LOW ORDER STARTING CYLINDER 
103202 007777 BIC #LO.R2 “CLER REST OF WORD 
104207 001430 MOV #°ONBLK RO “POINT TO CONVERT BLOCK 
100672 000001 MOV R2.V1+1(RO) “STORE FOR CONVERT 
114002 CLR R =FOR STORE 
100672 000000 MOV R2,V1(RO) “LOW ORDER ALWAYS ZERO 
104632 000011 MOV LBNTRK(R3) .R2 “GET LBN/TRK 
103202 177400 BIC AHIBYTE,R2 “CLEAR HIGH BYTE 
100672 000004 MOV R2,V3(RO) “STORE IN CONVERT BLOCK 
104040 900731 MOV R4 . DDUMMY >STORE BLOCK NUMBER 
114000 000732 CLR DDUMMY +1 “FOR STORE 
104204 000731 MOV ADDUMMY , RG “POINT FOR ADD 
104203 001227 MOV #HOLD RS “STARTING RCT LBN 
021506 CALL DADD “GET RCT LBN 
023455 RCL: tat ¢s “CONVERT FCT BLOCK NUMBER AND SEEK 
104207 000721 MOV ARDBLK,RO “PREPARE FOR READ SECTORS 
104203 000726 MOV #HSLIM-1,R3 “POINTER TO DUMMY SDI BLOCK 
100673 000005 MOV R3_,Rw.DUM(RO) “STORE IN COMMAND BLOCK 
104143 MOV (R4) *LO ORDER BLO R 
100673 000002 MOV R3,RW.LOW(RO) “STORE IN READ COMD BLOCK 
104643 MOV 1(R4), HI ORDER BL C 
105303 001335 ADD .LBN ADD STARTING LBN BITS 
100673 MOV R3,RW.HI (RO) “STORE IN READ CMD BLOCK 
104203 006621 MOV #RCTBUF ,R3 “LOAD ADDRESS OF DATA BUFFER 
100673 000001 MOV R3_, RW. BUF (RO) “STORE IN COMMAND BUFFER 
104203 013400 MOV ARWCMD .R3 “LOAD SDI READ COMMAND 
104301 001112 MOV CURTRK.R1 “GET CURRENT HEAD NUMBER IN R1 
101013 BIS R1,R3 *SET IT IN COMMAND 
100673 000004 MOV R3.RwW. CMD(RO) -STORE BACK 
104207 000721 READ8: MOV #RDBLK RO “MAKE SURE POINTING AT BLOCK 
104203 100000 - MOV #RDCMD,R3 “MARK AS ONLY REQUEST 
100173 MOV R3, (RO) >STORE IN CMD BLOCK 
104302 000740 UNIT, *SDI INTERCONNECT 
101207 100000 BIS #B1T15,RO “SET NO REVECTORING 
060012 XFC IP “WAIT FOR PUL 
060002 XFC —- READ “READ 1 SECTOR 
115001 TST Ri “ANY ERRORS ? 
054045 BNE 100$ “YES - TRY RECOVERY 
104173 MOV (RO) ,R3 “GET STATUS WORD 
102203 010000 BIT WECCF R3 “ECC ERROR ? 
014037 BEQ 101$ , “NOPE - VERIFY EDC 
023027 CALL ECCCK : >CORRECT EC 
115001 TST R1 “TEST FLAG 
054045 BNE 100$ “ UNCORRE CTABLE 
104202 006621 101$: MOV #RCTBUF ,R2 “POINT TO BUFFER 
022627 CALL  CEDC “COMPUTE EDC 
106623 000400 CMP RW. EDC(R2) ,R3 “O.K. ? 
014102 BEQ 1 “YUP = CONSIDER GOOD 
106300 001502 001504 100$: CMP RETRY, TMPTRY “MAX ? 
014054 BEQ 1$ “YES - TRY SOME RECOVERY 
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DATA FILE FOR PDP-11 UDA DISK 
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N 1 
) MACRO K04.00 23-JUL-81 15:08:54 PAGE 69-1 
: 


INC 
BR 
1$: MOV 


2$: 


001505 ¢ 


102$: 
RCD: 
001505 


WRIT10: 


001504 


mr mn ne nn ar ements 


o 


TMPTRY 
READ8 
RECTMP R53 
2$ 

ERRHND 
TMPTRY 


REC TMP 
READ8 


R5 
FCTCPY,RS 


RFTL 
MRCTFMT RS 
DADD 


TMPTRY 
RECOV,RECTMP 
RCL 


TMPTRY 
~~ a atl 


RLD | 
AF CTFMT.R3 


R2,R 
R3,RW.CMD(RO) 
ARCTBUF .R3 
R3,RW. BUF (RO) 


‘ > 
R3,RW.HI (RO) 
#HSLIM-1,R3 
R3,RW.DUM(RO) 

A,R5 


e 


RECTMP ,R3 
2$ 


ERRHND 
TMPTRY 
REC TMP 


nana 


0 
SEQ 0150 


> INC RETRY COUNT 
; ETR 


:DO RETRY 

;GET CURRENT ERROR RECOVERY LEVEL 
IF NEGATIVE THEN FRIED 

; TRY > eid 


sFOR IN 

:DECREMENT IT 

sRETRY 

: INCREMENT BAD COUNTER 
;ALL BAD ? 
:YUP - ALL OVER 

>SIZE OF TABLE - R4 => BLOCK NUMBER 
-ADD TO POINT TO NEXT COPY 


sRESET RETRY LEVEL 
;DITTO RECOVERY LEVELS 
;BRANCH BACK 


-FOR RESET 

>GET RECOVERY LEVELS 
sANY ERRORS ? 

zNO - EXIT 

:SIZE OF TABLE 

:GET BACK TO PREVIUUS COPY 
: CONVERT AND SEEK 
:POINT TO COMMAND BLOCK 
:GET WRITE COMMAND 

:GET CURRENT TRACK 

>SET TRACK FOR WRITE 


:GET HIGH ORDER 

;ADD STARTING LBN BITS 2 
:STORE IN WRITE BLOCK 

7GET DUMMY SDI POINTER 
;POINT IN COMMAND BLOCK 

;GET HEADER PREAMBLE 

;GET DATA PREAMBLE 

>SET UNIT 

7MAKE SURE POINTING AT BLOCK 
;SET NO REVECTORING 

;WAIT FOR SECTOR PULSE 
;WRITE SECTOR 

sANY ERROR ? 

;NO - SKIP RETRY 

MAX ? 


vee eeay Soe RECOVERY ' 

-DO RETRY _ 

-GET CURRENT ERROR RECOVERY LEVEL 
-]F NEGATIVE THEN FRIED 

- TRY RECOVERY 

sFOR INIT 

:DECREMENT IT 


- ——----— — 
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‘DATA FI 
RCT CLEANUP OVERLAY 
oe 904204 004147 BR wRIT10 RETRY 
146 004205 28: | 
117 006205 117405 DEC —-séRS :DEREMENT COUNTER 
118 004 00410 BR RCD “SEE IF ANY MORE TO DO 
119 004207 RLD POPA : 7 
120 004215 000000 RETURN ALL DONE 
121 006216 104012 | RFTL: MOV R1,R2 ;XFC ERROR CODE 
122 004217 104201 000016 MOV #14. R17 “RCT READ ERROR 
123 004221 022552 CALL ERRMNT “ERROR RETURN 
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PDP=11 UDA DISK D MACRO x04.00 23-JuUL-81 15:08:54 PAGE 70 


TA FILE FOR SEQ 0132 
RCT CLEANUP OVERLAY ‘(G64) 
| 1 : 
| 4 : VERIFY FCT 
| 4 004222 114000 001256 FCTCK: CLR FCTCNT :FOR INIT 
| § 004224 115400 001260 INC F CTNPD >SO CHECK THE NULL BLOCK ALSO 
| 6 004226 104200 006206 001253 MOV #PRMBUF , BUF PNT >POIN TO BUFFER 
7 006231 104201 000017 MOV #F6.R1 -FCT READ OVERLAY 
| 8 004233 022444 CALL PAGE :READ FIRST BLOCK 
| 9 004234 104205 906204 MOV #PRMBUF ,R5 ;POINT TO BUFFE 
10 004236 104203 126736 MOV #M512,R3 :GET MODE INDICATOR 
11 004260 100153 MOV R3,(R5) : DONE FO 
18 004241 104050 001253 MOV RS BUF PNT -STORE BUFFER POINTER 
13 004243 104201 000030 MOV #FOLR1 -FCT WRITE OVERLAY 
14 004245 022444 CALL PAGE :WRITE IT OUT 
15 004246 114000 001256 CLR FCTCNT -FOR FCTCNT INIT 
16 004250 104300 001357 001116 MOV ST.XBN, CURXBN+1 ALSO INITIALIZE XBN COUNTER 
17 0046253 104300 001337 001114 MOV ST.XBN, CURBN+1 :HIGH ORDER 
18 004256 114000 001115 CLR CURXBN :OW ORDER ALWAYS 0 
| 19 004260 114000 001113 CLR CURBN :AND BLOCK NUMBER 
20 004262 104203 001052 MOV #SCR,R3 -POINT TO CHARACTERISTICS 
21 004264 104207 001450 MOV #CONBLK >POINT TO CONVERT BLOCK 
22 004266 104632 00000 MOV CYLBN(R3) ,R2 >GET LOW ORDER CYLINDER 
23 004270 100672 900000 MOV R2,V1(R :STORE IT 
24 004272 104632 000001 MOV CYLBN+1(R3),R2 :GET HIGH ORDER 
25 004274 100672 000001 MOV R2,V1+1( (RO) -STORE IT 
26 004276 104303 001127 MOV SECTRK,R3 -GET SECTORS/TRACK 
27 004500 100673 000004 MOV R3,V3(RO) :STORE IT 
28 004302 114005 | FCTCLP: CLR RS >CLEAR WRITE ERROR COUNT 
29 004303 104050 001245 MOV RS ,NEXT1 -CLEAR REPEAT COUNT 
30 004305 104204 00073 FCTCL17: MOV ATEMP,R4 :POINT TO BLOCK 
31 004307 104300 001113 000736 MOV CURBN, TEMP :FOR CONVERSION 
“6 004312 104300 001114 000737 MOV CURBN+1, TEMP+1 :DITTO 
33 004315 107200 001337 000737 SUB ST.XBN, TEMP+1 - SUBTRACT STARTING XBN BITS 
34 004320 023455 CALL cS > CONVERT AND SEEK 
35 004321 104207 000721 MOV ARDBLK RO :POINT TO COMMAND Bi_9CK 
36 004323 104203 013400 MOV ARWCMD ,R3 :-GET READ COMMAND 
37 004325 104502 001112 MOV CURTRKR2 :GET CURRENT TRACK 
38 004327 101023 BIS R2,R3 SET TRACK FOR WRITE 
39 004330 100673 000004 MOV R3,RW.CMD(RO) ST IN COMMAND BLOCK 
40 004332 104203 006204 MOV #P F POINT TO BUFFER 
41 004334 100673 000001 MOV R3,RW.BUF (RO) STICK IN COMMAND BLOCK 
e 004336 104303 001113 MOV CURBN ,R3 GET LOW ORDER HEADER 
43 004340 100673 00000 MOV R3,RW.LOW(RO) STORE IN WRITE BLOCK 
44 See eee 104303 001114 MOV CURBN+1,R3 :GET HIGH ORDER 
45 344 101203 12000 BIS #HD .XBN,R3 :SET HEADER 
46 004346 100673 0600003 MOV R3,RW.HI (RO) :STORE IN WRITE BLOCK 
47 004350 104203 00072 MOV AHSLIM-1,R3 -GET DUMMY SDI POINTER 
48 004352 100673 000005 MOV R3,RW.DUM(RO) :POINT IN COMMAND BLOCK 
49 004354 104207 000721 READ9: MOV ARDBLK , RO -MAKE SURE POINTING AT BLOCK 
50 004356 104203 100000 MOV ARDCMD ,R3 :-GET READ COMMAND 
51 004360 100673 000000 MOV R3,RW. STAT (RO) >STORE IT 
6 We eee 104302 000740 MOV UNIT,R2 :>SET UNIT 
5 364 107207 100000 BIS #81T15,R0 -SET NO REVECTORING 
54 004366 060012 XFC SIP -WAIT FOR SECTOR PULSE 
55 004367 060002 XF READ -READ SECTOR 
56 004370 115001 TST R1 :ANY ERROR ? 
57 004371 054407 BNE 100$ YES - TRY RECOVERY. 
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RCT CLEANUP OVERLAY (G4) 

58 004372 104172 MOV (RO) ,R3 3GET STATUS WORD 

59 0043 102203 010000 BIT HECCF R3 , SECC ERROR ? 

60 004375 014401 BEC 101$ “NOPE - VERIFY EDC 

61 004376 023027 CALL ECCCK > CORRECT ECC 

62 004377 115001 TST R1 > TEST FLAG 

63 004400 054407 BNE 100$ > UNCORRECTABLE 

64 004401 104202 006204 101$: MOV #PRMBUF ,R2 >POINT TO BUFFER 

65 004403 022627 CALL CEDC : COMPUTE EDC 

66 004404 106623 000400 CMP RW.EDC(R2) RZ :0.K. 

67 004406 014427 BEQ 102$ YUP = - CONSIDER GOOD 

68 004407 106300 901502 001504 100%: CMP RETRY, TMPTRY “MAX 

69 004412 014416 BEQ 1$ ay - TRY SOME RECOVERY 
70 00441 115400 001504 INC TMPTRY : INC ai COUNT 

71 004415 094354 RR READS =DO RETRY 

72 004416 104303 C01505 1$: MOV RECTMP,R3 :GET CURRENT ERROR RECOVERY LEVEL 
73 004420 0744350 BMI YES > IF NEGATIVE THEN FRIED 

74 004421 022612 , CALL ERRHND “TRY RECOVERY 

75 004422 1140600 001504 CLR TMPTRY “FOR INIT 

76 004424 117400 001505 DEC RECTMP >DECREMENT IT 

77 004426 004354 BR READS “RETRY 

78 004427 102$ 

79 004427 : 

80 004427 115405 INC RS | :NO - INCREMENT COUNTER 
81 0044 115400 001245 YES: INC NEXT1 : INCREMENT IT 

82 004432 106205 000002 CMP #2,R5 -FOUND 2 GOOD ONES ? 

83 004434 014454 BEQ FCTCKD “YUP - GO TO NEXT BLOCK 

004435 104204 001113 MOV ACURBN,R4 -FOR ADD 

85 004437 104203 001240 MOV #FECTFMT,R3 :FOR ADD 

86 004441 021 CALL DADD >POINT TO NEXT COPY 

87 004442 114000 001504 CLR TMPTRY >RESET RETRY. LEVEL 

88 004444 104300 001503 001505 MOV RECOV,RECTMP :DITTO RECOVERY LEVELS 

89 004447 106300 001244 001245 CMP FCTCPY,NEXT1 -DONE THIS SECTOR ? 

90 004452 054305 BNE FCTCL1 -NO - WRITE NEXT FCT COPY 
91 004453 004503 BR FCTCKE -2 NOT GOOD - TROUBLE 

92 004454 102200 002000 001217 FCTCKD: BIT #BSTGS,FLAG “BEST GUESS ? 

93 004457 054502 BNE 4$ “YUP ~ ONLY CHECK FIRST BLOCK 
94 004460 060022 KFC UPDATE *LET HOST KNOW STILL ALIVE 
95 004461 115400 001256 INC FCTCNT : INCREMENT IT 

96 004463 DUBINC CURXBN > INCREMENT IT 

97 004470 104300 001115 001113 MOV CURXBN, CURBN -GET LOW ORDER 

98 004473 104300 001116 001114 MOV CURXBN+1, CURBN+1 GET ‘id ORDER 

99 004476 106300 001260 001256 CMP FCTNPD,FCTCNT ;DONE ? 

100 004501 054302 BNE FCTCLP “NOPE - DO NEXT SECTOR 
101 Boe 208 4$: RE TURN 
106 503 104201 000011 FCTCKE: MOV 49.,R1 : SIGNAL ERROR 

103 004505 104302 001256 MOV FCTCNT.R2 -RBLOCK FAILED ON 

104 004507 022552 CALL ERRMNT :ERROR RETURN 
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DATA FILE FOR PD 
RCT CLEANUP OVERLAY (G4) 
1 3 
; : VERIFY RCT | 
4 004510 115400 001261 RCTCK: INC RCTLBN :>CHECK NON=PAD PLUS NULL BLOCK 
§ 006512 1046300 001133 001227 MOV LBNLBN, HOLD >GET LOW ORDER COUNT OF LBN'S 
6 004515 104300 001134 001230 MOV LENLBN+1,HOLD+1 >GET HIGH ORDER 
7 004520 104203 001475 MOV ATOTRCT.R3S >FOR SUBTRACT 
8 006522 104204 001227 MOV #HOLD ,R4 DITTO 
9 004524 021524 CALL DSUB >GET STARTING RCT LBN 
10 28 104300 001227 001113 MOV HOLD, CURBN >GET STARTING RCT BLOCK NUMBER 
11 0045 104300 001227 001115 MOV HOLD, CURLBN :ALSO SAVE 
1¢ 004533 104300 001230 001114 MOV HOLD+1, CURBN+1 :GET HIGH ORDER 
13 004536 104300 001230 001116 MOV HOLD+1, CURLBN+i -AND SAVE 
14 006541 104200 000001 001501 MOV #1, COUNT 
1§ 004544 114005 RCTCLP: CLR R5 :CLEAR ERROR COUNTER 
16 004545 104050 001245 : MOV RS ,NEXT1 INIT COPY COUNT 
17 004547 104203 001052 RCTCL1: MOV #SCR,R3 :POINT TO CHARACTERISTICS 
18 004551 104632 000011 MCV LANTRK(R3),R2 :GET LBN/TRACK 
19 EEE 103202 177400 BIC #HIBYTE,R2 -CLEAR HIGH BYTE 
9 555 104207 001430 MOV #CONBLK ,RO -POINT TO CONVERT BLOCK 
1 006557 100672 000004 MOV R2,V35(RO) sFOR CONVERT 
22 004561 104632 000001 MOV STCYL(R3) ,R2 :STARTING CLYLINDER 
23 004563 103202 007777 BIC #LO.R2 -CLEAR REST OF WORD 
24 004565 100672 MOV R2,V1+1(RO> - STORE 
25 004567 114002 CLR R2 >FOR STORE 
26 004570 100672 000000 MOV R2,V1(RO) -LOW ORDER ALWAYS ZERO 
27 004572 104204 001113 MOV #CURBN,RS . -FOR CONVERT 
28 004574 023455 CALL CS >CONVERT AND SEEK 
29 004575 104207 000721 MOV #RDBLK ,RD | -POINT TO COMMAND BLOCK 
30 004577 Hog 94 013400 MOV ARWCMD,R3 . :GET READ COMMAND 
31 004601 1043502 001112 MOV CURTRK,R2 >GET CURRENT TRACK 
6 004603 101023 BIS R2,R3 -SET TRACK FOR WRITE 
33 004604 100673 004 MOV R3,RW.CMD(RO) :STORE IN COMMAND BLOCK 
34 004606 104203 006204 MOV #PRMBUF .R3 :POINT TO BUFFER 
2 004610 100673 001 MOV R3,RW.BUF (RO) :STICK IN COMMAND BLOCK 
004612 104303 001113 MOV CURBN,R3 -GET LOW ORDER HEADER 
37 004614 100673 02 MOV R3,RW.LOW(RO) :STORE IN WRITE BLOCK 
38 004616 104303 001114 MOV CURBN+1,R3 :GET HIGH ORDER 
39 004620 105303 001355 ALD _ ST.LBN,R3 -ADD STARTING LBN BITS 
40 Breese 101203 000000 BIS #HD.LBN,R3S >SET HEADER 
41 624 100673 000003 MOV R3,RW.HI (RO) -STORE IN WRITE BLOCK 
42 004626 1pn ee 000726 MOV #HSLIM-1,R3 :GET DUMMY SDI POINTER 
43 004630 1006735 000005 . MOV R3,RW.DUMC(RO) :POINT IN COMMAND BLOCK 
44 004632 104207 000721 READ10: MOV #RDBLK RO -MAKE SURE POINTING AT BLOCK 
45 004634 104203 100000 MOV ARDCMD ,R3 -GET STATUS WORD 
46 004636 100173 MOV R3, (RO) :STORE IT 
47 004637 104302 000740 MOV UNIT,R2 SET UNIT 
48 004641 101207 100000 BIS #B1IT15,RO :-SET NO REVECTORING 
49 004643 060012 XF C. SIP :WAIT FOR SECTOR PULSE 
50 004644 060002 XF C READ :WRITE SECTOR 
§1 004645 115001 TST R1 :ANY ERROR ? 
26 004646 054664 BNE 100$ YES - TRY RECOVERY 
004647 104173 MOV (RO) .R3 -GET STATUS WORD 
S4 004650 102203 010000 BIT #ECCF R53 -ECC ERROR ? 
55 eed 014656 BEQ 101$ -NOPE - VERIFY EDC 
56 653 023027 CALL ECCCK =CORRECT ECC 
57 004654 115001 TST R1 -TEST FLAG 
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RCT CLEANUP OVERLAY (G4) 
58 004655 054664 BNE 100$ : UNCORREC TABLE 
£9 004656 104202 006204 101$: MOV #PRMBUF ,R2 >POINT TO BUFFER 
60 004660 022627 CALL CEDC . >COMPUTE EDC 
61 004661 106623 000400 CMP RW.EDC(R2) .R3 :0.K. ? 
62 006663 014704 BEQ 102$ >YUP - CONSIDER GOOD 
43 004664 106300 001502 001504 100$: CMP RETRY, TMPTRY >MAX ? 
64 004667 014673 BEQ 1$ YES = TRY SOME RECOVERY 
65 004670 115400 001504 INC TMPTRY > INC RETRY COUNT 
66 004672 004632 BR READ10 :DO RETRY 
| 67 004673 104303 001505 1$: MOV RECTMP,R3 >GET CURRENT ERROR RECOVERY LEVEL 
| 68 004675 074705 BMI RCTNGD > IF NEGATIVE SKIP GOOD INCREMENT 
| 69 004676 022612 CALL ERRHND > TRY RECOVERY 
70 004677 114000 001504 CLR TMPTRY sFOR INIT 
71 004701 117400 001505 DEC RECTMP :DECREMENT IT 
72 004703 004652 3 “ge READ10 :RETRY 
| 73 004704 102$: 
74 004704 2$: 
75 006/904 115405 | INC RS :YUP - INCREMENT COUNTER 
76 004705 115400 001245 RCINGD: INC NEXT1 : INCREMENT IT 
77 004707 114000 001504 CLR TMPTRY :FOR RESET 
78 004711 104300 001503 001505 MOV RECOV,RECTMP >GET RECOVERY LEVELS 
79 004714 106205 000002 CMP #2.R5 | :FOUND 2 GOOD ONES ? 
80 004716 014736 BEQ RCTCKD :YUP - GO TO NEXT BLOCK 
81 004717 104204 001113 MOV A#CURBN RS -FOR ADD 
82 004721 104203 001242 MOV ARCTFMT,R3 -FOR ADD 
83 004723 021506 CALL DADD -POINT TO NEXT COFY 
84 poe rss 114000 001504 CLR TMPTRY >RESET RETRY LEVEL 
85 726 104300 001503 001505 MOV RECOV,RECTMP , :-DITTO RECOVERY LEVELS 
86 004731 106300 001244 001245 CMP - FCTCPY,NEXT1 :DONE THIS SECTOR ? - 
87 004734 054547 BNE Gye Sy Reena sNO - READ NEXT FCT COPY 
88 004735 004761 | BR RCTCKE >2 NOT GOOD - TROUBLE 
89 004736 060022 | RCTCKD: XFC UPDATE -LET HOST KNOW STILL ALIVE 
90 004737 115400 001501 INC COUNT : INCREMENT IT 
91 004741 DUBINC CURLBN : INCREMENT IT 
3 004746 104300 001115 001113 V | CURLBN, CURBN -GET LOW ORDER 
93 004751 104300 001116 001114 MOV CURLBN+ 1, CURBN+1 >GET HIGH ORDER 
94 004754 106300 001261 001501 CMP RCTLBN, COUNT :DONE ? 
95 006757 054544 3 BNE RCTCLP :NOPE - DO NEXT SECTOR 
3 004760 000000 RE TURN : 
97 004761 104201 9000013 RCTCKE: MOV #11.,R1 :SET ERROR CODE 
98 004763 104302 001501 MOV . COUNT,R2 >RCT BLOCK FAILED ON 
99 004765 02255 


e CALL . ERRMANT ;ERROR RETURN 


os — —— —_-_ —_ 
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LE 
“T WRITE OVESLAY (F9) 


FUPE SPSS E® & BE DE EH OW 


a a le ee ee A CC OR LL ALL LLL LIE ALLE ee A A CL CCC CL CC CL LLL LE LL LL OGLE LL ALLY LLL LLL A LLL AL 
-_ 2 _ 


7 .SBTTL FCT WRITE OVERLAY (F9) 
2 006766 DMOVLY F9.,START . 





wOuW 


5 ; 
‘ : WRITE AN FCT BLOCK 
é : 
7 003047 104200 000030 001155 FCTWRI: MOV AF, CUROVL :FOR INIT 
| pits ees 114005 CLR RS >CLEAR ERROR COUNTER 
9 003053 104050 001245 MOV RS.NEXT1 : INIT NEXT COPY COUNTER 
0 003055 104204 001256 MOV AF CTCNT,R4S >POINT TO FCT BLOCK NUMBER 
1 003057 104203 001466 MOV s0NE R23 —____YY_-;£0R SL 
¢ 003061 021524 CALL DSUB >SUB TO GET RIGHT ONE 
003062 104305 001253 MOV BUFPNT,R5 :GET BUFFER POINTER 
4 003064 104303 007143 FCTRLP: MOV LBNCYL,R3 :GET LBN CYLINDERS 
5 003066 104207 001430 MOV ACONBLK ,RO :POINT TO CONVERT BLOCK 
6 003070 100673 000000 MOV R3,V1(RO) >STORE FOR CONVERT 
7 003072 104303 001144 MOV LBNCYL+1,R3 -GET HIGH ORDER 
8 003074 100673 000001 MOV R3,V1+1(RO) :STORE IT 
9 003076 104303 001127 MOV SECTRK,R3S -GET SECTORS/TRACK 
0 003100 100673 000004 MOV R3,V3(RO) | > STORE IT 
1 003102 022714 | CALL -CVTSK : CONVERT AND SEEK 
2 0031035 104207 000721 MOV #AWRBLK,RO -POINT TO COMMAND BLOCK 
3 003105 104203 122400 MOV AWRCMD ,R3 -GET WRITE COMMAND 
4 003107 104302 001112 MOV CURTRK,R2 :GET CURRENT TRACK 
§ 003111 101023 BIS R2,R3 -SET TRACK FOR WRITE 
6 003112 100673 000004 MOV R3,RW.CMD(RO) -STORE IN COMMAND BLOCK 
7 003114 104052 MOV R5,R2 :POINT TO BUFFER 
8 003115 022627 CALL CEDC COMPUTE EDC - RETURNED IN R3 
9 003116 100623 000400 MOV R3,RW.EDC(R2) :STORE IT 
0 003120 100672 000001 | MOV R2,RW.BUF (RO) :STICK IN COMMAND BLOCK 
1 003122 10414 MOV (R4),R3-- :-GET LOW ORDER HEADER 
2 003123 100673 000002 MOV R3,RwW.LOW(RO) :STORE IN WRITE BLOCK 
3003125 104643 000001 MOV 1(R4),R3. - . :GET HIGH ORDER 
003127 105303 001337 ADD S1.XBN,R3 :ADD STARTING XBN BITS 
003131 101203 120000 BIS #HD .XBN,R3 >SET HEADER 
003133 100673 000003 MOV R3,RW.HI (RO) >STORE IN WRITE BLOCK 
003135 104203 000726 MOV MHSLIM-1,R3 :GET DUMMY SDI POINTER 
003137 100673 000005 MOV R3,RW.DUM(RO) :POINT IN COMMAND BLOCK 
003141 104303 001333 WRITES: MOV HPREA,R3 -GET HEADER PREAMBLE 
003143 104304 001334 . MOV DPREA,R4S -GET DATA PREAMBLE 
003145 104302 000749 : MOV UNIT,R2 -SET UNIT 
003147 104207 0007 MOV AWRBLK RO -MAKE SURE POINTING AT BLOCK 
0037151 101207 100000 BIS #B1T15,R0 -SET NO RVECTORING 
003153 060012 XFC SIP -WAIT FOR SECTOR PULSE 
003154 060005 XFC WRITE :WRITE SECTOR 
003155 115001 TST R1 :ANY ERROR ? 
003156 013200 BEQ F WGOOD : NOPE 
003157 106300 001502 001504 CMP RETRY, TMPTRY ;MAX ? 
003162 015166 BEQ 1$ -YES - TRY SOME RECOVERY 
003163 115400 001504 INC TMPTRY > INC RETRY COUNT 
003165 003141 BR WRITES -DO RETRY 
003166 104303 001505 1$: MOV RECTMP,R3 -GET CURRENT ERROR RECOVERY LEVEL 
003170 073177 BM! 2$ - JF NEGATIVE THEN FRIED 
003171 022612 CALL ERRHND -TRY RECOVERY 
003172 1714000 001504 CLR TMPTRY :FOR INIT 
003174 117400 001505 DEC RECTMP -DECREMENT IT 
003176 003141 BR WRITES RETRY 


ESS NOP WN ODS 


escenario EL EE LE TST LEADS oe 





FILE FOR 
WRITE OVER 
58 003177 
59 003177 
61 008902 
62 00 $00 
63 003207 
64 003211 
65 003213 
66 003214 
67 003217 
68 003220 
69 esse 
70 00322 
71 003225 
72 003226 
73 ES ES 
74 003232 
75 003233 
76 003235 
77 003236 
78 003245 
79 003244 
80 003245 
81 003247 


LAY ¢ 


WE SERRERY 
FESSSSSES 


=—O— 
>) rr 
RAWRA 


-—-OoO-- 0 0 -" O0O 0 - -- | = 
~ c 
S 3 

WO fw 


001244 
001244 
001245 


001256 
001240 


001245 


000017 


_s EE EE RE SE NE EE STS ST a 


001505 


601245 


2$: 


t WGOOD : 


FCFXLP: 


FWTDON: 
FCWERR: 


be 11 
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R5 
NEXT 1 


TMPTRY 
RECOV,RECTMP 


#FCTCNT ,R4 
AF CTFMT,R3 


FCTCPY,RS 


FWTDON 
AFCTCNT ,R4 
AFCTFMT,R3 
DSUB 

NEXT 1 
FCFXLP 
FCTCNT 


R1,R2 
#15.,R1 
ERRMNT 


DADD 
FCTCPY,NEXT1 
RLP 


;YUP - INCREMENT COUNTER 
s INCREMENT IT 


; RESET 
:GET RECOVERY LEVELS 
:FOR ADD 


;FOR ADD 
;POINT TO NEXT COPY 


:DONE THIS SECTOR ? 

:NO = WRITE NEXT FCT COPY 
:ERROR ON EVERY WRITE ? 
:YUP - BIG TROUBLE 

sANY REAPEATS ? 


3NO 
-T0 GET IT BACK 
:DITTO 


7SUB IT 
;REPEAT 
sPUT BACK THE WAY IT WAS 


;XFC ERROR CODE 
:RCT WRITE ERROR 
;ERROR RETURN 


St * J 


——_—- — 


— ——--—— - 


A 


== © 


ee a re em ee ee eect aaa tt tt tt LE LE LLL ALLL LLL LLL LL LLL LLL LLL, EE A 
© te 


rrrrrrrrrrigr: 


« 
ad 


oe 
the 
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2 003250 

4 

5 

é 003047 

7 003051 

& 003055 

9 003055 
10 003060 
11 003063 
12 003065 
13 003067 
14 003070 
15 003072 
18 003073 
17 003074 
1B 003076 
19 003100 
20 0¢5101 
21 003103 
22 003104 
23 003105 
26 003107 
25 003111 
26 003112 
27 003114 
28 003116 
29 003120 
30) $122 
31 003124 
5 003125 
z 005127 
34 003131 
35 003133 
% 003135 
3? 003137 
38 003141 
9 
40 
4) OR es 
42 00314 
Boer 
te BO81s4 
46 003155 
47 003157 
48 003161 
49 003163 
50 003165 
51 003166 
5 3167 
53 003170 
54 003172 
55 903174 
56 003176 
57 003200 
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Ot ed ed ot Ct 
OWWw 


NM 
© 
- Ww 


14 

001111 
001110 
000001 
001337 
170000 
120000 
001111 


001127 
001130 
000731 


001110 
001052 
11 


000737 
000736 


000731 
000732 


XRNF ND: 


000731 LRBN: 
000732 


| SCR,R5 
MOV LBNTRK(R5),R3 


.SBITL PBN->D,X.L.RBN CONVERSION OVERLAY (G5) 
DMOVLY G5S.START 


CONVERT FROM PBN 70 D.X.L.RBN 


MOV CURPBN+1 ,R5 
BIC #HD.CLR,RS 
MOV R3,CURPBN+1 ; STORE BACK 

MOV LBNLBN , DDUMMY ;GET TOTAL NUMBER OF LBN'S 
MOV LBNLBN+1 ,DDUMMY +1 ;HIGH ORDER 

MOV #DDUMMY , RS :FOR ADD 

MOV #RBNLBN ,R3 > TOTAL NUMBER OF RBN'2 


:GET PBN HEADER 
;CLEAR THE HEADER 


CALL DADD ;ADD TO GET TOTAL BLOCKS IN LBN AREA 
MOV #CURPBN ,R3 ;TURRENT PBN 

CALL DCMP ;1S IT LBN OR RBN ? 

BM] 7YUP - GO COMPUTE IT 


LRBN 
MOV #CURPBN ,R4& 
MOV ADDUMMY , R53 


:ELSE X OR DBN - GET VALUE 
; TOTAL LBN+RBN BLOCKS 


CALL DSUB ; SUBTRACT 

MOV #XBNSEC R53 ; TOTAL XBN SECTORS 
CALL DCMP :IS_ IT AN XBN ? 
BMI XBNF ND :YUP - GO FIXIT 


“ELSE DBN - GET VALUE 

= TOTAL XBN SECTORS 
“SUBTRACT TO GET RELATIVE DBN 
=GET HIGH ORDER 

“ADD TO GET ABSOLUTE DBN 
“CLEAR THE HEADER 

“MARK AS DBN 

=STORE BACK 

“CLEAN UP AND RETURN 
“POINT TO BLOCK NUMBER 
=GET HIGH ORDER 

:ADD TO GET ABSOLUTE XBN 
“CLEAR HEADER 

“MARK AS XBN 

“STORE BACK 

“CLEAN UP AND RETURN 


ADD ST.DBN,R1 
BIC #HD.CLR,R1 


B ONE 

MOV HC 1151 1,RS 
MOV 1.R4) 
ADD ©1.XRw,R1 
BIC #KD.CLR,RI 
BIS #HD .XBN,R1 
MOV R1,CURPBN+1 
BR. PDONE 


:GET LOW ORDER SECOTRS/TRACK 
z:HIGH ORDER 
sFOR DIVIDE 


:DITTO 

-DIVIDE TO GET TRACK NUMBER AND REMAINDER 
:POINT TO CHARACTERISTICS 

:GET LBN/TRK 

> CLEAR HIGH BYTE 

:POINT TO REMAINDER 


MOV _SECTRK ,DDUMMY 
MOV SECTRK+1,DDUMMY+1 
MOV ADDUMMY R35 

MOV #CURPBN ,R4S 

cos 


BIC #i4]BYTE RS 
MOV ADDUMMY ,R1 


MOV _—- (R11), R4 “GET 1T 

CMP R4,R3 : COMPARE 

BMI L BNF ND “TF MINUS THEN LBN 
MO\; RBNTRK(R5) .R3 “GET RBN/TRACK 


BIC MHI IBYTE,R3 
MOV R3. TEMP 

CLR TEMP+1 

MOV ATEMP RS 


;CLEAR OUT GARBAGE 
:STORE IT 

:FOR STORE 

7FOR MULTIPLY 


nn enmeeeees 


~ eee RR KP eS ereerrrcrrrrrer rs Es 


te-- 


J 11 
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PBN=>D,X,L.RBN CONVERSION OVERLAY (G5) 


58 003202 104204 001110 MOV #CURPBN ,R4 
59 003204 021542 CALL DMUL 
Base? 104204 000731 MOV ADDUMMY , RS 
61 207 1064653 000011 MOV LBNTRK(RS) ,R3 
62 003217 103203 177400 BIC #HIBYTE .R3 
645 003215 0 00073 MOV R=, TEMP 
903215 114900 000737 CLR TEMP+1 
65 005217 104203 0007 MOV ATEMP,R3 
OO R55. 021524 CALL D - 
67 003222 106204 007110 MOV 4CURPBN R24 
68 603224 104203 00731 MOV ADDUMMY , R53 
69 003226 021506 CALL DAD 
70 003227 104641 001 MOV 1(R4) ,R1 
71 003231 1035301 001336 ADD ST.RBN,R1 
72 003233 103201 17 BIC #HD.CLR,R1 
3 003235 101201 BIS #HD.RBN,R1 
74 003237 104010 001111 MOV R1,CURPBN+1 
oe 003241 003276 babe PDONE 
77 : 
78 003242 104204 001110 LBNFND: MOV #CURPBN ,R4 
79 003244 104653 000011 MOV LBNTRK(RS) ,R3 
80 pet eh: 103203 177400 BIC #HIBYTE,R3 
81 003250 1040350 000736 MOV R3,TEMP 
ry 003252 114000 000737 CLR TEMP +1 
83 0045254 104203 000736 MOV ATEMP,R3 
84 005256 021542 CALL DMUL 
85 003257 i ot 9 000731 MOV ADDUMMY ,R3 
86 003261 021506 CALL DADD 
8? 003262 104207 001052 MOV #SCR,RO 
88 asec 106641 01 MOV 1(R4) RI 
Ry it 66 105301 001335 ADD ST.LBN,R1 
90 003270 1063201 170000 BIC #HD.CLR.R1 
91 Boesre 101201 BIS #HD.LBN.R1 
92 74 104010 001111 MOV R1,CURPBN+1 
93 ae00 104300 001110 001113 PDONE: MOV CURPBN, CURBN 
94 003301 104300 001111 001114 MOV CURPBN+1, CURBN+1 
95 003304 000000 RE TURN 
96 003305 DMEND 
97 000001 .END 


were eee SE OT 


:DITTG - NUM OF TRACKS 
sMULTIPLY BY TRACK NUMBER 


*GET LBN/TRK 
“CLEAR HIGH BYTE 
“STORE IT 


sFOR CLEAR 
;POINT FOR SUBTRA 
;SUBTRACT TO GET RESIDUE RBN 


CT 


:TO GET RBN NUMBER 
sDITTO 
:GIVES RELATIVE RBN 


:GET HIGH ORDER 


;ADD TO GET ABSOLUTE RBN © 


:CLEAR TH EHADER 
:SET AS A RBN 

; STORE BACK 

s; CLEAN UP AND RE 


TURN 


:MULT NUM OF TRACKS 


;GET LBN/TRK 
;CLEAR HIGH BYTE 
3STORE IT 

;FOR CLEAR 
;POINT FOR MULT 
;GET LBN‘S 

:PLUS RESIDUE 
:GIVES LBN NUMBE 
;POINT TO CHARAC 
;GET HIGH ORDER 


R 
TERISTICS 


:ADD TO GET ABSOLUTE LBN 


;CLEAR HEADER 
>SET AS LBN 
:STORE BACK 
:GET LOW ORDER 
sHIGH ORDER 


ee TL GL LOLS LL AE 


SEQ 0139 


— 


SP2ZSSSZSZSZZTZS ZZSA~AAHBRBBZSSSISZS2SSE22% 


a ee ee ere 


cm 
! 


K 11 
DATA FILE FOR PDP=11 UDA DISK D MACRO xX06.00 23-JUL-81 15:08:54 PAGE 75-2 SEQ 0140 
SYMBOL TABLE 


ss me 


ACC 001024 CLEWRT 003270 DCLR 001026 ERDN = 000010 FIXLP 003503 NC 
‘ACCESS 002235 CLHERE 0033503 CMP 001626 ERECOV 1102 FKIP1 004121 NA 
AGAIN 003544 CLSKP2 003165 DCMP1 001651 ERFLAG 601221 FKIP1O0 004145 NL 
AL 003264 CLSKP3 003201 DCMP2 001644 ERLEN = 0 FKIP2 004102 NG 
/ALLOVR 00260 CLSKP4 003200 pDCMP3 001657 ERPNT 001252 FKIP9 004460 (NC 
ALLOV1 002611 = DCMP4 001637 ERR 001226 FKP 004136 NL. 
| 002362 CMPDAT= DDIV. 001570 ERRBUF 901224 FLAG 001217 ot 
ATTN = N 1247 DDUMMY 000731 FRRCNT 0017453 FLAG? 001220 ot 
ATTN1 00235 CNICYL 001460 DEAD = 000020 ERRHND 2612 FLGDON 004427 OF: 
BADEDC 00145 CONBLK DESC 003050 ERRLN = 000003 FLGSET 004373 OF? 
BADPEN 00122 CONINT 003067 DFCT 004423 ERRLST 002624 FLGSKP 004405 OF? 
1501 DINIT = 000011 ERRMNT 002552 FLIP 003136 OF 
BD = 920000 01037 001021 ERROR 003465 FLKIP1 434 OF 
BDHD = 0 CR.ACC 00076 DISCON 002324 ERRSYM= 000002 FLKIP2 004415 One 
BDIRCT 004136 CR.CLR 000771 DLERR 003113 ERRT 002101 FLKP1 004451 
BITO = : 000755 DLERT 003470 ER1 003753 F ODONE 2 On 
BIT1 = 000002 CR.ERV 001005 D = 000400 FBDHD = 010000 FOLOOP 3060 On 
BIT10 = 002000 C 000745 DLLRET 003446 FBEGIN 003276 FORERR 003431 One 
BIT11 = CR.GSR 000 DLLRT1 003432 FREG2 003311 FORMAT= 000001 On 
BIT12 = 010000 CR.GST 000741 DMBUF 001263 FCFXLP 003223 FRCPY = oC 
81715 = 020000 A 001017 DMBUFL= 000016 FCLR = 177760 FRDONE 003750 ot 
B1T14 = 040000 CR.RCL 001001 DMFLG = 000004 FCMSG 001321 FRSKP 003744 OF 
BIT15 = ; 000761 DMOST = 000001 FCNT 001237 FSER = 000002 1 
BiT2 = CR.SEK 990775 1 003054 EF CPG 003657 FT .BUF= 
81T3 = 000010 005455 DMSG1L= 000007 FCT = 000013 FT.HI = 000002 
al1™4 = 000020 CSKIP 003522 001542 FCTAVL= 000001 FT.LOW= 0 
BITS = 000040 CSKIP1 003534 DMUNIT= 000003 FCTBAD= 000004 FULL = 
BIT6 = 000100 CSKIP2 003533 DOLBN 003061 FCTCK 004222 FWGOOD 003200 
B1T7 = 000200 CSKIP3 003773 DONDLL 003451 FCTCKD 004454 FWRD 001445 
BIT8 = 000400 CSKIP6 003743 DONE = 000021 FCTCKE 004503 FWIDON 003236 a) 
BIT9 = 000 CSKIP7 004000 DONE1 003206 FCTCLP 004302 FI = 000000 
BLKFND 003176 001113 DONMSG 001327 FCTCL1 004305 F = 000003 O' 
7775 CURGRP 001463 DPBN 003307 FCTCNT 001256 F3 = 000006 0! 
BOTTOM 003322 CURLBN 001115 DPREA 001334 FCTCPY 001244 F4 = 000011 0! 
04034 CUROVL 001153 S 001524 FCTEMT= 000002 FS = 000014 ¢) 
BREAK = CURPBN 001110 DUPOVL= 007774 FCTFLG= 000025 F6 = 000017 @) 
BSTGS = 002000 RBN 001106 DWRD 001450 FCTFMT 001240 F7 = 000022 O' 
BUFMSK= 007777 CURTRK 00117172 DXBN 03063 FCTNPD 001260 F8 = 000025 O' 
BLIF PNT O91 €32 CURXBN 115 DXCH 003500 FCTPTR 001255 F9 = 000030 O' 
BUF? = 004535 CUTOF 001235 DXCHEC 003477 FCTRCT 003212 GCR 001016 O' 
BUuF2 = 005152 CvT = 000020 DXERR 003406 FCTREV 001311 GDBLK = 005567 O' 
BUF = 005567 CVTERR 002750 DXFCPG 003407 FCTRLP 003064 GDECC 003046 O' 
BUF4 = 0062 CVTSK 002714 DXFCP1 003370 FCTSKP 003466 GDFCT 003260 O' 
BUFS = Ress CYL = 000006 DXFORM 003114 FCTSK1 003460 ONE 04337 O' 
BUF6 = 007275 CYLBN = DXTRK 003052 FCTSLP 003644 GETUNT 00 0' 
BUMER 003064 CYLMSG 001316 EAGAIN 002636 FCTSP 003762 GOBAD = 000020 0 
CBUF 001444 CYLNUM 001125 FCC = 000015 FCTSZ = 000010 GOVER 004212 0 
CDONE 004044 C512 = 000016 ECCCK 003027 FCTWRT 003047 GRP = 0 0 
CEDC 002627 DADD 001506 = 010000 FCWERR 003244 GRPCNT 0014 0 
CHAR 001772 DADD1 001515 ECHO = 000010 FDAT = 000012 GRPCYL= 0 0 
CHRDNE= 01 DAT = 000011 001451 FDLL 003272 GSKIP 004315 0 
CKR 003513 DATA = EIMAGE 001231 FERR 03376 GSKIP1 004232 
CLEAR wees? DATE 001301 x 01225 FILLIT 003666 GSKIP2 0 
CLEDON 003174 001314 EMSG 001324 FINI = 040000 GSKIP3 004267 0 
CLELP 0031 DBD = ENTRY 000714 FIXBLK 003466 GSR 01017 ¢ 
CLELP2 0030 DBN = 000010 FORCT 003173 FIXFCT 0046015 GST 001015 0 
CLESKP 003744 DANCYL= 000022 FRCV = 000002 FIXIT 004046 GSTATS 001662 0 


re  - 





2 





"“vphuhuuwt 


ee555 


# 


eS 
< 


SESSSSSSSEBLILAK 
E : 


a 
S 


NST = 
IRECAL 


000001 
001101 
001075 

3643 


LOVERS 


004355 
004321 
004312 
004300 


LPBN 
LRBN 


z2zs 
oo MW 
2 
a 
Hoot 


OERR2 
OF ATAL 


000011 OvS.F2= 
000736 OvS.F 3= 
3770 OVS.F4= 
003341 OVS.F5= 
01466 OVS.F6= 
000001 OVS.F7= 
002332 OvS.F8= 
001104 OVS.F9= 
04443 OvS.G1= 
003362 OvVS.G2= 
003344 OVS .G3= 
0000271 OvS.G4= 
003540 OVS.G5= 
004041 OVS.G/= 
004010 OVS.G8= 
003047 OVS.H1= 
003047 OVS .MN= 
003047 ¥.. 2 
003047 PAERR 
003047 PAERR1 
03047 PAGAIN 
003047 PAGE 
003047 PAGER 
003047 PALP1 
003047 PALP2 
003047 PALP3 
003047 PAL P4 
003047 PARITY= 
003047 PARIT1= 
003047 = 
003047 PCNT 
003047 PCON 
000714 PDONE 
001424 PERR 
000003 PNGBL K 
001341 PNGPG 
001103 G PNGPNG 
001416 G PNGRD 
000423 G PRET 
000647 G PRIM = 
001202 G PRIMRB 
000520 G PRMBUF = 
000445 G PRMY = 
000625 G PROD = 
000202 G RBD = 
001376 G RBNBUF = 
000052 G RBNLBN 
000214 G RBNPCY 
001720 G RBNRPT= 
000237 G RBNTRK= 
000336 G RBNWRT 
000224 G RB . BUF = 
000302 G RB. CMD= 
002215 G RB.HI = 
016575 RB.IM = 
002526 RB.LOW= 
010466 G RCD 


aE ns 


013570 


000004 
000001 
004102 


mos 
DOODAQAAAGAGAAGAAGAAC 


SEQ 0141 








M11 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 75:08:54 PAGE 73-4 SEQ 0142 
| SYMBOL TABLE 
IRCFIX 003442 READS 004354 SECTRK 001127 STPNIC 002013 TRK = 000011 Z 
|RCFXLP 004230 RECAL 002154 SEEK 002251 STRBN = 000003 TRKCNT 001465 : 
RCINDN= 000100 R“CIR = 040000 SEEKER 003435 STSC_ = 000012 TRKCYL 001741 Pk 
RCINER 003462 RECOV 001503 SEEKO 002253 STSKP 002007 TRKGRP= 000003 Pk 
RCINIT= 000040 RECTMP 001505 SEEKi 002262 STSk1 001702 TWO 003635 Ph 
RCINLP 003203 REDO SEEK2 002310 STwLK 001764 TWOB = Pk 
RCL 003760 RETRY 001502 SEEKS 002321 STXBN - 000002 TwOC 001470 PI 
RCLP 003057 R = 006 SEEKS 00 ST.DB = 001000 TWRD 001447 Pr 
RCLP2 003206 REVCNT 001254 SEEKS 002307 ST:DBN 001340 UHASH 003357 Ree 
RCLP3 003452 REVECT= 000 SEEK6 002301 ST.DF = IP RE 
RCLP4G 003411 REVLEN= & SEEK7 002276 ST.DR = 000040 UHKIP1 003410 RE® 
RCLP6 003420 R 001151 SEND = 000004 ST:ERB= 000002 UID. = RE 
RCTBAD 001313 REVSEC= 000007 SER _ = 000005 STZ ERR= 000374 UNIT 000 RE 
RCTBUF= 006621 RFCT 004417 SERNUM 001305 ST.FO = 002000 UNSEC = 000175 Rt- 
RCTCK 004510 | RFTL 004216 SETOVL 003103 ST. IN = 000004 UN.ERI 000717 RE 
RCTCKD 004736 RINC1 003542 SFIRPT 004334 ST-LBN 001335 UN.ERR 000715 RE 
RCTCKE 004761 | = LD 004207 SHORTO= 000000 ST-PS = 000002 UN.ERT 00071 Ri 
RCTCLP 004544 + — -RLDONE 003335 IP = 000012 ST-RBN 001338 UN.SEK 000720 RI 
RCTCL1 004547 RLOOP 003150 SIXTN = 000017 ST:RU = 000001 UPDATE= 000022 Rt 
RCTCNT 001477 RLOOP1 003203 SKERR 003402 §T.SR = 000020 UPDPNT 001474 Rl 
RCTERR 003606 RNWHER 003563 SKIP1_ 003200 ST:WE = 000010 UREAD = 000013 R' 
RCTFMT 001242 ROVER 00310 SKIP12 003365 ST-WP = 170000 UWRITE= 000014 Ri 
RCTINI 003047 ROVER1 003116 SKIP19 003161 ST:XBN 001337 VLD = RI 
RCTLBN 001261 RPRIM = 000004 SKIPS 00325 SWAP 003255 VLD1 = 000010 Ri 
TNGD 004705 RPT 003223 SKIP4 003164 D 001446 1 = 000000 R 
RCTRLP 004063 RPT1 004005 SKIPS 003202 TALIP1 002117 v2 = 000002 R 
RCTSZ = 000014 RQUIT 003256 SKIP6 003310 TALK 002016 v3 = 000004 R' 
RCTTOT 001235 RRC 003715 SKIP7_ 00325 TALKDN 002060 v4 = 000005 R 
RCTUPD 003047 RRERR 003611 SKPCNT 00123 TALKIP 002115 WLOOP 003315 R 
RCTWLP 003426 RRPL 003567 SLEEK 003210 TALKP 002076 R 
RCTWRT 004056 RSER = 000000 SLEEK2 003225 TALKRT 002070 WRBLK 000721 : 
RCTWT 003421 RTCNT = 000012 LOOP 003122 TATTNI 002147 WRCMD = 122400 : 
RCV. = 000005 RTDON 003604 004153 TBLK 001234 WRFLG 001222 ; 
VMNT 002544 RTRY = 000001 SNDCNT 001472 TCLEAR 002103 WRITE = R 
RCVRDY= 0 = 100000 SNDMNT 002536 MP 000736 WRITE? 003310 ; 
RCWERR RTYCNT 001473 SND1 = 000003 TEMP2 000733 WRITE2 00 R 
RCXLP 003571 RTYDN = 000002 SRCK 001745 TERR 002143 WRITES 004146 K 
RC. FRE= 001023 001030 THREB = 000011 WRITES 003251 - 
"NUL= 100000 RWCMD = 013400 STACK 001215 TILOP 004046 WRITES 00 F 
RC-PRV= 020000 RWGD 003546 STARIT 001232 TILOP1 004053 WRITE 003301 H 
RC. SND= RWGOOD 004205 START 003047 TI 002656 WRITES 003404 
RC.UNU= 040000 RWRDY = 100000 START2 003212 TIMLOP 004026 WRITIO 004147 I 
ROBLK 900721 RWTDON 004243 STARTS 003063 P 002661 WRIT12 003275 R 
= 004535 RW.BUF= 000001 STATFR 002710 TIMVAL= 100000 WRIT13 F 
RDCMD = 100000 RW. CMD= STATRE 002674 TKIP! 003073 XAGAIN H 
RDLEN = 000005 RW. DAT= STATRT 002707 TKIP10 003163 001315 R 
R 003233 .DUM= 000 STATST 001664 TKIP11 003230 XBD = 000 R 
RDONE? 003237 RW.EDC= 000400 STATUS= 000007 TKIP2 003074 XBNCYL= 0 R 
AD = 000002 RW.ER1= STATVL 002671 TKIP 003146 XBNFND 003125 R 
ADI 00357 RW.ER2= 000401 STCKSV 001216 TKIP4 003156 XBNIT 003171 : 
READIO 004632 RW.HI = STCLR = 170377 TKIPS 003236 XBNSEC 001137 : 
READ11 003141 “LOw= 000002 STCYL = 000001 TKIP6 003302 003416 R 
abe 003722 RW. STA= = 000003 TKIP? 003133 XEORCT 003675 R 
READS 003535 R 1052 STDIAG 001757 TKIPB 003254 XFLIP 003637 ; 
AD4 003666 SECCNT 901454 STFORM 001752 TKIP9 003264 XNGBLK 003615 : 
READ? 003136 SECNDY 003302 STLBN = 000002 TMPTRY 001504 XNOINC 003645 F 
READ8 004013 SECTCY 001131 S16 —-001251:~=S i, ~=SSSTOTRCT 001475 XPBN 003341 F 


nea 
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N 11 
DATA te? FOR PDP-11 UDA DISK D MACRO K046.00 23-JUL-81 15:08:54 PAGE 73-5 
SYMBOL TABLE 


- ABS. 036432 oe 
ERRORS DETECTED: 0 : 
VIRTUAL MEMORY USED: 2971 WORDS ( 12 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
8: ZUDF AO/C=01, 353DMACRO,B: ZUDFAO.DOC ,B: ZUDFAO 


*ahy 


0031 


XPERR 003711 XSKIP1 003063 KSKIP4 003235 XSLEEK 
KXPNGRD 003652 KSKIP2 003163 XSKIPS 003260 XSLEK2 0031 
KPRET 003707 KSKIPS 003160 KSKIP6 003255 ~ KY2 0037 


x¥Z1 
YES 


003720 
004430 


ot 


SEQ 0145 
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B 12 


D MACRO x04.00 23-JUL-81 15:08:54 PAGE S-1 


SEQ 0144 


TABLE (CREF v01-05 ) 


PDP=-11 UDA DISK 


DATA FILE FOR 
CROSS REFERENCE 


65-78* 
55-40 
66-79 
59-237. | 
71-60 


44-155 
51-27 
65-83 
59-214" 
70-65 


44-87* 
50-100 
635-126 
59-209* 
69-53 


44-80 
50-127 
59-200* 
67-33 


44-67% 
50-21 
59-127* 
63-51 


annie 


44-27 
44-169 
61-64 


44-11 
44-136 
60-25 


39-8 
44-101 
55-52 


37-44% 
42-8 


15-1204 
37-28 
40-74 
65-29 


14-60 
59-25 


37-13 
37-26 


34-36 


~) 
a 
1 
~~ 
ry 


MM TOOr wom 
a o— o— «— & p~ pe w— 
tO Oe Oe Oe oe os Ot 


Ace 
BLKFND 4 





| 
| 
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C¢ 12 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE S-2 SEQ 0145 
(CROSS REFERENCE TABLE (CREF VO1-05 ) 


CKR 67-85 67-878 
CLEAR 14-22 1541284 34-91 35-182 40-58 42-260 
at 66-554 


CLESKP 66-27 66-434 66-54 
CLEWRT 66-51 66-57 67-44 


CMDBUF  7=3584 35-69 36-7 42-21 43-7 
CMPDAT 7=57# 35-89 42-41 42-102 


CNT 20-8 

CNTCYL 10-354 34-35% 34-53%  34-107* 34-126* 40-1 

CONBLK 10-64 21-5 21-21 50-13 53-10 ad 
69-10 70-21 71-20 72-15 


COUNT 10-52H  32-7* 32-26% 32-27% 32-30* 32-80* 35-/* 37+36* 8 6 57+5) 39-/7* 50-8* 50-59 50-132 50-136* 
50-139* 61-63%  61-116% 61-129* 61-132* 61-153* 66-16*  66-38* 66-41 66-52*  66-55* 67-6 67-61*  67-62* 


Se 40-17" «40-18% 40-106 «= «40-127 40-129 
3 60-9 61-65 63-13 67-19 67-71 67-88 68-8 68-65 


71-14% 71-90% 71-94% 71-98 

CR 9-48 9-774 23-6 27-6 28- 29-27 29-46 29-61 31-4 50-142 

CR.ACC 9=-52H 15-121 

CR.CLR 9-554 15-129 

CR.DIS 9=50H# 15-172 

CR.ERV 9-564 19-49 

CR.GCR 9-484 14-64 

CR.GSR 99-49% 14-66 

CR.GST 9-47 14-14 3er9 

CR.ONL 9-57H 15-180 

CR.RCL 9-554 15-80 

CR.RUN 9-514 15-87 

CR.SEK 9-546H 15-139 

CS 7-26 67-714 69-22 69-82 70~354 71-28 

CSKIP 5-57 35-624 

CSKIP1 35-664 35-108 

Cex tee 35-61 35-654 

CSKIP 5-159 35-1624 

CSKIP6 35-143 55-1474 

CSKIP? 35-114 35-11 35-1644 

CURBN 9-96# 34-56% 34-58% 34-100* 34-101* 37-24 37-40 = 37-48 37-51% «37-51% 38-15 38-36 40-90* 40-91" 
44-2) 44-49 44-54 44-76 44-85 44-89 44-94% 44-94% 46-12% 46-14% 49-5 49-6 49-25 49-24 
50-10% 50-12" 50-45 50-75 50-76 50-89 50-91 50-120 50-134* 50-135* 59-50 59-54 59-76 59-78 
69-115. 59-117% 59-119 59-171 59-179 59-181 61-39% 61-41" 61-56 61-67 ~ 61-69 61-98 61-127* 61-128* 


70-17% 70-19% 70-31 70-32 70-42 70-44 70-84 70-97% 70-98% 71-10* 71-12* 71-27 71-36 71-38 
CURGRP 10-384 34-62" 34-65* 34-66 34-104x 37-67* 37-80 40-29% 40-30* 40-35 40-103* 42-261 44-188* 44-201 


CURLBN 9-98% 61-40% 61-42% 61-126* 61-126" 61-127 61-128. 71-11* 71-13* =71-91* 71-91% 71-92 71-93 
CUROVL | 17-10 17-29% 34-10% 37-11% 40-8* 44-6* 46-9* 50-7* 51-11" 55-7* 59~8* 61-6* 63-7* 


CURPBN 9-934 37-30" 37-34% 37-54% 9 37-54% 9-38-19 = 38-20" 9358-40" = 338-41 44-13% 44-14% 44-29% 44-33* 44-105" 
64-103% 46-138 44-171 59-47% = 59-42% 9 59-43% = 59-44 73-6 73-8* 73-14 73-17 73-25 73-30" 73-32 
73-37~ 73-44 73-58 73-67 73-74* 73-78 735-92x 73-93. 73-94 

CURRBN 9-918 40-99% 40-100" 44-134 44-151 44-158 = 44-167* 44-167* 46-17% 46-18* 66-17% 66-18* 66-34 66-36 


CURTRE 9-95H 21-12e 34-75" 34-81 34-96* 35-131 35-172 36-29 40-42* 40-48 40-81* 42-85 42-250 43-29 





eins 


aan — 


D 12 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JjUL-81 15:08:54 PAGE S-3 





SEQ 0146 
CROSS REFERENCE TABLE (CREF VO1-05 ) 
| 1-118 53-20 55-33 55-B4 = 59-9. “59-224 60-21 61-21 61-60) 61-142" 63-32 63-85 
68-25. 69-36. 69-BS. 70-37 71-31. 7226 
S0-31*  50-133* 50-135 50-134 50-135 59-91* 59-92" 59-94 59-95 70-16" 70-18" 70-96 
67-78 
53-17 S$5-21 «55-81 «60-18 ~=— 61-57 63-19 63-82. 6B=22,— 72-21 
31-14 21-22 67-80 67-81 67-89 
56-70 96-89 26-90. «= 26-131 26-132. 26-133. 50-15. = 50-17 70-22 70-24 
4-112 40-111 40-113 
56-156% 36-66 34-65. 34-1146 34-120 34-123 34-132 40-14% 40-16" 940-19 40-31 40-32 
C0n124 40-1466 51-14 51-16. 51-112" 51-115* 59-11 59-13 559-218" 59-221" 61-23 61-25 
25-12 26-140 26-147 26-166 26-187 26-227 28-24 «= 38-12, 38-14 «= 38-16 38-35 38-37 
67-38  §3-60 §4-38 S55-70° 58-36 59-61 59-126 60-62 61-33 61-100 63-70 69-21 
Habs 83-265 73-13 73+69 273-86 
50-61 
66-71 
66-73% 
34-19 34-30 «= 37-17 
34-32 35-17 
14-21% 
61-112 65-57 65-68 73-15 = 73-21 
13-36 
26-170 26-182 26-191 49-16 52-14 57-14. 73-45 
53-15" 92-16 32-20 22-21% 22-22, 25-6* = 25-7* = 25-B 26-28% 26-29% = 26-34 26-788 
56-111" 36-112" 36-113 26-137* 26-138 26-139 26-144" 26-145 26-146 26-162" 26-163* 26-165 
56-159 36-178 96-179* 36-181 26-183" 26-184" 26-186 26-188* 26-189 26-190 26-192" 26-193 
56-225 56-226 39-16x 29-17% 29-19 37-80% 37-81" 37-83 37-85* 37-87* 40-86% 40-87* 
0-96" 40-97 2-119" G2-124% 42-127 44-201" 44-202 44-204 44-206 44-208* 47-16% 47-178 
48-17% 4B-18 49-13" 49-14% 49-15. 49-19® 49-20% 49-21 49-23% 49-24% 49-25% 49-26 
C727" §4-30*® 1-31 52-10 «52-11% 52-12 53-6 = 53-58 = 93-67 = 54-32 57-10" = 57-118 
23-$3% §9-91 59-92 59-94x 59-95* 60-7 60-60 60-69 61-30 61-31" 61-32 61-108" 
E3-Be63-9e 3-11 3-23. 325. «3-68. ~— «63-79. -63-90 63-92 6743" 67-59 = 68-208 
69-18% 69-19 73-9 73108 73-11 73-18. 73-41% = 73-42" = 73-43 73-49 73-60 ~68 
17-43 19-39 
15-192 15-211 
66-87 
35-56 37-15. 37-52. s‘59-83. «59-160 59-186 ©=— 59-198 + 59-207 
19-14. 19-27 2-16 29-81 29-89. 32-6) 3344 = 34-109 40-110 50-40) B4-12 = 66=19 
19-15. 24-17 


_.* 


— = oe 
ee ed a 


ann 


ee oe 


E 12 
DATA FILE FOR PDP=-11 UDA DISK D MACRO x04. -JUL- - 08: Be 
ON Bey AiR 1 Be fie 04.00 23-JUL-81 15:08:54 PAGE S-4 


: 


—VWOOAaONm 


MMM HMMM MM mr MnMMmMeIm re 
zz 
—Yi 


momen on 

ZzwDwDDDzZ 

xz» at tt 
cy mM 
za “~2 
— 


ERRLN 
ERRLST 
ERRMNT 


ERROR 
ERRSYM 


7=2664 


33-5 


mn Www 
Nm 


—=PMrnM = Ww 
de ty ie Ww 


Ove 
it 


fw —-VWV'! 
cee es 


uve 
rt 
—i 


15-72 
55-122 


31-5 


26-48 
44-205 
32-59 


34-78 
26-81 
47-19 
7212 


44-119 


55-48 
55-46 


68-3 
36-36 


35-167* 


55-61 


15-116 
58-52 


31-78 


26-60 
44-213 


35-169 
26-154 


63-47 
63-45 


37-94 


42-7 


42-195 
35-163* 


26-75 
47-10 


69-49 
69-47 


43-33 


42-194 


42-205* 
35-165* 


35-158* 
60-51 


26-95 26-115 
48-10 49-22 
42-247 50-97 
29-20 34-99 
53-69 55-80 
he 73-66 
70-61 71-56 
70=59 71-54 
43-56 44-215 
42-21/* 

42-66% ~~ 42-52* 
40-137 42-149% 
61-89 63-60 
17-46 19-244 
63-131 64-53 


26-124 
73-59 


53-36 


34-125 
59-17 


42-61% 


42-207* 
65-113 


21-23 
65-88 


26-195 
73-84 


55-97 


35-29 
59-31 


42-21e* 


68-53 


26-16 
67-90 


26-223 


60-37 | 


35-46 
59-236 


42-215* 


69-62 


32-85 


69-123 


27-14 


61-76 


40-21 
60-71 


69-112 


34-134 
70-104 


29-8 


63-99 


40-89 
61-38 


70-74 


40-148 
71-99 


SEQ 0147 


35-24 


67-45 


40-98 
61-111 


71-69 


50-159 
72-8) 


—-- = -— o-- < 
lle - 


DATA FILE FOR PDP=11 UDA D 
¢ TABLE (CREF vO1-05 ) 


ROSS REFERENCE 


FCTCPY 
FCTEMT 
FCTFLG 
FCTFMT 
FCTNPD 
FCTPTR 
FCTRCT 
FCTREV 
FCYRLP 
FCTSK1 
FCTSKF 
FCTSLP 
FCTSP 
FCTS2. 
FCT 

FC 

FD 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 


66~-82* 
2 


& ee EE a ee ee ee Se ee ee 


F 12 
DISK D a x04.00 23-JUL-81 15:08:54 PAGE S-5 


(59-1014 
59-2124 


35-180 
51-119 


50-147 


50-121 
50-136 
59-85 


34-2) 


ee ne a tes or ee = 


50-145 
64-15 
34-42 


44-23 


50-139 
70=5* 
59-162 


34-43 


59-238 


70-13 


37-37% 


50-141 


59-20* 


70-95* 
50-146* 


44-58 
55-79 
70-99 
59-188 


65-79 


63-7 


72-7 


44-36" 


65-127 


59-213 
70-99* 
53-61 
44-101 
63-69 


59-193" 


65-14 


44-100 


65-16 


59-234 
70-103 
53-63 
44-136 
65-80 


59=204 


- Er 
oe 


65-50 


44-148* 


65-52 


59-248 


70-7 


65-30* 


65-84 


59-248* 


44-169 
70-85 


65-46* 


65-8 

72-72 
60-65 
65-32 


72-64 


65-59" 


63-120* 
72-77* 
61-101 


72-73 


SEQ 0148 


65-72" 65-74* 


64-17 
635-66 


63-122* 
72-77 
61-103 


G 12 
DATA FILE FOR PDP=-11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE S-6 
ROSS REFERENCE TABLE (CREF yvO1-05 ) 


Pa [P2 
FEIPG 
Fee? 
FLAG 


36 
9-49 


e- 
9-638 


é 


76-228 





16-25* 
42-215* 
33-194 


49-51 


42-164 
35-156" 
44-79 


4-22 


44-122 


64-11 


42-163 


15-42 


17-43 
42-233 


42-253 


42-167* 


42-67 
44-86* 


44-135* 


42-236 


34-105* 


15-50* 
37-75 
42-150 
44-156* 
62-19 


19=24* 
44-48* 


42-243 
42-111 
44-92 


44-15 


40-28* 


15-52 
37-17 
42-181 
44-169% 
63-124 


19-26 
44-162" 


42-246" 


42-115 


44-154* 


44-19 


40-104* 


15-76 


65-126* 


19-39* 
44-164* 


44-20% 
42-123 
44-161* 


44-165 


we ene ee er 


26-9" 
37-39 
44-18% 
50-1278 
63-127 


35-104* 
61-124* 


44-66% 
42-153 


68-2 


33-8" 
37-52 
44-23% 
50-129* 
65-16* 


42-56% 
61-155* 


44-135* 
42-159 


68-28 


33-158 
40-9* 
44=25* 
S0-141* 
65-32* 


42-106" 


44-166 


33-15" 


65-52s 
42-1218 


1 > 
42-162* 42-182 


SEQ 014% 
33-178 34-118 
40-73" 40-74 
44-40" 44-47* 
51-119" 59-83 
65-81" 65-835" 
G2-147* 42-179 
42-185" 42-192" 


v3 


————r ~ 


ea 


555555 
g 


a 5355: 
aaas 6Se 


LY | TT ce ace lea ae LL LLL LA LLL LLL LLL LLL ELLA LL LL ES RE ES er ee 


‘ H 12 
EF FOR PDP=-11 UDA DISK D MACRO «04.00 23-JUL-81 15:08:54 PAGE S-?7 SEQ 0150 
REFERENCE TABLE (CREF vO1-05 ) 
9-47 9-614 


146-128 15-73 15-163 33-29 
7=211# 51-40 54-40 55-7 58-38 59-65 59-128 


7=1484 35-155 37-42 42-184 44-85 44-153 51-48 

7=1508 26-71 26-91 32-35 32-61 35-154 37-35 37-41 37-47 40-18 42-116 42-160 42-175 42-183 
42-201 44-32 44-50 44-77 44-84 44-90 44-152 44-159 47-7 48-7 51-30 51-52 51-68 51-82 
on oe 51-104 59-43 59-80 59-109 59-116 59-137 59-143 59-157 59-175 59-183 65-65 66-51 67-75 


727-1454 62-69 43-14 44-91 53-31 59-52 60-32 61-71 71-40 73-91 
7-146" 42-71 42-113 42-131 «42-239 Ss 43-16 44-58 44-160 59-113 67-9 68-34 73-73 
7-152 34-52 36-14 50-92 63-27 63-94 70-45 72-35 73-36 


9-2-1234 28-29% 28-30* 65-56 65-67 
7-128M 22-19 26-55 26-102 40-94 44-116 48-15 49-18 68-7 73-54 


71254 14-18 22-13 23-8 26-27 26-31 26-43 26-104 26-143 27-5 29-29 29-106 «= 29-107 54-34 
34-61 34-72 35-19 37-72 40-27 40-39 40-85 44-9 44-193 47-15 49-12 53-9 55-18 60-11 
61-47 67-18 68-11 69-15 71-19 73-48 73-62 73-80 


Qni48" S1-18* 51-198 51-21 51-37 54-37 58-35. 59-27" = 59-28 59-30 59-60 = 59-125 61-34" = 61-35" 
6123761239. 1-460 61-41. 1-462. 69-20. 71-5* = 71-6e = 71-8 MnO. Ties. “Piste © Pes 

Qn101H 34-55" 34-57% 34-97. 34-100 34-101 40-82) 40-90 40-91 46-13" = 46-15 

9-105H 44-13 94-14 44-221 49-28% 49-29 

9=1034 40-92 40-99 40-100 46-19% 46-20» 

9-194" 29-108" 34-79 35-170 60-46 42-248 50-96 53-35 55-96 60-36 61-75 63-98 67-464 68-38 


9-294 35-80 35-122 42-32 42-76 50-94 53-35 54-25 55-94 60-54 61-73 63-21 63-96 67-4) 


7=3614 26-224 29-10 34-83 35-111 35-174 36-8 36-37 . 36-39 37-14 37-75 40-56 42-63 42-152 
42-235 42-252 43-8 43-37 43-359 44-12 44-196 59-237 59-240 59-245 
=3234 29-4 35-164 36-42 37-63 37-89 42-157 42-214 42-241 43-42 44-93 44-168 44-184 44-210 
a Fy 34-80 35-171 37-75* 37-76 37-96* 40-47 42-249 44-196* 44-197 44-21/7* 
at 20-7 
7=2 40-71 40-73 44-99 
§-1914 15-202 
§=214 15=216 15-2204 
5<1874 33-25 
a 33-244 
-2134 15-218 
5-159 15-2104 34-90 35-181 40-57 42-259 
7=2948 50-36* 
55 9-834 
4 21-15* 34-64* 34-65" 34-66* 40-31* 40-32* 40-33» 42-2612 $1-1132 51-1168 


9-798 21-138 $.- ‘ 


9-5 , 14* 
51-121" 594219 59-2228 59-225" 61-137% 61-140" 61-143* 67-80" 67-81% 67-8e* 


27-3258 37-98 44-219 


ATA FIL 
REFERENCE TABLE (CREF VOT 


mat 4 
AUS> 


#=3* 


& 
= 


vuvvvvvTVvUvTev 
NM ae es ss 
CONS WFWNO 


sal sad saa ud ied som sea sea Ge Sa ae Ge SO Sn ed oe i se oe ed ed a a 
RE 
wm 


~~ © ww Oe Oe ee es Oe 


FF KR RFF RFRAKRARAX RAR 


v 
™N 


I 12 
- FOR PDP=-11 UDA DISK ew K06.00 23-JUL-81 15:08:54 PAGE S-8 


66-67" 
40-136 
26-1318 


40-139 
26-134" 


42-1074 


42-216 
44-1074 


44-1824 


44-30 
44-88 


44-14¢ 
44-1674 


44-1014 





44-100" 66-66 


40-14 40-15 40-16 40-17 47-5 
59-45 
28-20 28-21 38-17 38-31 38-32 
73-10 
26-74 47-9 
26-103 40-84 44-8 47-164 49-15 
73-61 73-79 
44-34 44-894 
44-934 
44-1584 
36-13 42-68 42-112 42-154 
59-51 59-69 59-154 59-145 


47-6 


51-18 


53-8 


42-171 
60-14 


48-5 


51-19 


55-17 


42-238 
61-50 


48-6 


59-27 


60-10 


43-13 
66-25 


63-12 


59=28 


61-46 


51-47 
67-22 


63-15 


61-34 


67-17 


51-54 
68-14 


SEQ 0751 


Q- | & 


61-35 


68-10 


51-75 
69-9 


DATA FILE FOR PDP=-11 UD 
CROSS REFERENCE TABLE ¢ 





RRRARRRRR 


ROS 


y gk aad wed ned ant, ei Ih, aed, gO 
as) 


> 7 
ed 


61=55* 


Beg 


— — 

TTT 
Sede 

EN= a 


3 


Sey 


CoM Ww 
= | 


aS 


eatin se 
=O 
mee 
—t SF 


'w-, 
‘ 


A DISK D MA 

CREF vC1-0 
15-75 
15-284 
50-154 
50-728 50-124 
50-574 59-156 
42-2350 
42-2644 
42-2474 42-263 
42-2458 
42-242 
49-54 
73-414 
43-394 
42-144 
42-60 
42-174 
42-208 42-2114 
40-614 
42-1004 
e526 42-2134 
42-754 
42-2044 
42-187 42-1964 
15-100 29=55* 
65-20 70-10 
65-22 
19=7 24-15 
19=16 24-18 
35-56 37-15 
44-75 44-824 
32-39 
67-53 
59=275 59-3, 
36-45 
15-254 
12-45% 12-44% 
35-58* 35-62" 
35-59% 35-460 
S0-129 50-155 
24-21 6-14 
$0-58*  50-117* 
61-95" 61-101* 
16-20 
65-25 65-28 
35-60" 35-64* 
50-1174 
20-154 
50-248 
35-91 35-96 
50-37 65-27 
61-954 
$8-224 
59-1134 
Si-1234 
32-28 32-35 


37-52 


59=194* 


70=29* 


65-53 
35-162 


35-1014 


32-58 


42-i0* 
35-64 
40-141 
53-5* 
70-81* 


65-814 
42-12 


32-768 


42-14% 
35-160* 


50-148 


53-55* 
70-89* 


42-16% 


J 12 
cme x04.00 23-JUL-81 15:08:54 PAGE S-9 


42-59% 
35-162 42-11% 42-12 42-15% 
53-61* 53-65 53-70*  60-6* 
71-16% 71-76% 71-86* 72-9* 
42-211 


———— as 


42-16 


60-57* 
72-60* 


42-209* 


60-63* 
72-66* 


42-211* 


60-67 
72-70 


60-72* 
72-75* 


K 12 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE S-10 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


NOTR 51269 51=72¢ 
5-88 42-40 42-101 


OF FS 
_ 9-364 51-45 54-7 54-36* 58-6 58-34% 59-66 59-151 


OLDONE 65-78 63-1204 

ONE 10-414 26-153 28-25 34-124 40-20 40-107 40-125 59-16 72-11 

ONEF IL -44 - 4-376 5-1 

ONLIN 15-1794 33-28 

ONL J NE 57 9- 

OOPS -31 33-344 

OOUIT 63-123 63-125 63-1294 

ORF TAL ss 55-1204 

Vie - 9 9-34 26-5 26-5 26-5 26-54 34- 34-8 34-8 34-84 37-10 37-10 37-10 
“ 44-2h 46-6 46-6 46-6 46-64 50-5 


OV af 61- 4 63-2 
a 46-6 

OVE.F9 72-24 73-2 
OVE. 26°54 34-8 
OVE.G2 64-74 65-7 
OVE.G3 65-74 66-5 
OVE.G4 66-5" — 72=2 
OVE .G5 -c# 73-96 
OVE.G7? 37-104 40-5 
OVE. 46-64 50-5 
OVE .H1 m4 56-7 

: 9- =5 

R e505" ge-ele 
OVER] -177 5-1854 
OVER2 5-169% 35-184 
OVL... 993 9-34 26-5 26-54 34-8 34-84 37-10 37-104 40-5 40-54 44-2 44-28 46-6 46-64 


50-5 50-54 51-2 51-24 a2"e 35-24 56-7 56-74 61-2 61-24 63-2 63-28 64-7 64-78 
iam 65-74 66-5 66-54 fer 72-2 15-2 73-24 73-96 73-964 


Ovi .F1 § 37-10 37-10 37-104 
OvL.F2 9-211 44-2 44-2 44-24 
OvL.F3 G26 S12 51-2 51-24 
OVL.FS 9-217 55-2 55-2 55-28 


. 
DATA FILE FOR PDP=11 UDA DISK D MACRO X04.00 23-JUL-81 15:08:54 PAGE S-11 SEQ O1' 
“ROSS REFERENCE TABLE (CREF v01-05 > 


9-5 26-5 26-5 26-54 
35 50-52* 50-53* 50-54 64-24% 64-25% 64-26% 64-27 


16-8 17-12 17-30 25-1) e 
tons 17=355 18-74 50-56 64-29 


25-6 26-54 


17-36 17-394 
1 7-4 Sa * 


34-77 35-6 39-6 40-12 40-24 40-44 40-67 40-77 40-80 40-135 45-7 51-41 54-41 


: ey a 59-38 59-49 59-64 59-129 59-202 59-211 59-216 59-239 59-247 65-15 65-45 


34-41 34-42 3°33 35-8 39-8 45-5 59-214 64-28 65-15 65-18 65-55 65-43 65-49 
34-38% 44-35% 944-106 44-147% 44-179 = 45-8 65-61* 65-71* 
73-38 73-75 73-934 


51-97 54-48 





M12 
DATA FILE FOR PDP=11 UDA DISK D MACRO 06.00 23-JUL-81 15:08:54 PAGE S~1. 
“CROSS REFERENCE TABLE (CREF VO1-05 ) GE SI 


59808 


RBD 
RBNBUF 
RENL BN 


a | 
: 





wi 
iT Pat 
BRABVAATS 
OLS ae 


—s ts 


Oo Wrewww 
Tat ee 
ae Ft waeo 
sSatSex 
2= 


£9-150 


42-120 
44-55 


54-30* 
28-13* 
26-172* 


44-97 





59-168 
42-150 
52-7 
42-144 
59-99 


42-23 


59-138 


54-31 
53-59 
61-129 


59-165 
43-19* 


26-161 


48-9 


59-144 


5329 
69-52 


54-45* 


53-68 
71-4* 


44-18 


44-65 
59-190 


26-176 


44-115 
59-135 


59-176 


54-12 
69-88 


58-29* 
55-69 
71-94 


44-47 


44-68 
59-243 


26-177 


48-14 


66-26 


55-30 


58-50 
60-61 


44-156 

70-6 70-9 
28-25 38-13 
49-17 68-6 
3551 5987 
58-45% 59-59% 
69-70 61-99 


70-40 


38-34 


73-53 


p11 


59-124" 
61-133 


70-64 


61-27 


59-65 


66-19% 
66-48 


71-34 


61-28 


59-105 


66-21 
69-70 


71-59 


73-12 


59-1350 


66-47* 
71-82 


sea 0155 


59-151 


66-48" 


N12 © , 
DATA FILE FOR PDP=-11 UDA DISK D MACRO K04.00 23-JUL-81 15:08:54 PAGE S-13 SEQ 0156 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


RCTWRT 59-101 59-149 59-192 60-54 
RC TwT 51-60 51-95 51-107 53-44 


RCV 7-564 8 15-31 15-104 432-23 

RCVMNT 19-148 50-48  64- 

RCVRDY 7-1 15-198 15-217 

RCWERR 60-66 7Sa 

RCXLP 53-654 $3-71 “ 

RDBLK 9- 23-9 35-70 35-82 35-121 35-134 42-22 42-34 42-75 42-87 55-22 55-36 63=20 63-35 


69-23 69-37 70-35 70-49 71-29 = 71-44 
RDBUF 7-353 10-17 35-128 «35-147 35-149 36-22, 42-82. 43-22, 50-24 = 50-35 50-55 50-62, 50-72 5087 
0-150 59-21 59-24 59-36 59-39 59-89 59-200 59-209 61-9 61-16 61-63 61-119 6T=147 62-10 
7=3184 35-83 35-135 42-35 42-88 55-37 63-36 69-38 70-50 71-45 


RDLEN 7231 35-101 - 62-53 43-20 

R 65-69 65-75 65-778 

t 1 65-47 $3-79 
RE AD 7=534 35-85 35-138 42-37 42-91 55-42 63-41 69-43 70+55 - 71-50 

READ 55-824 s% “hy ‘ 
READIO 7194644 71-66 71-72 

READ11 ree xf 55-58 55-64 

READ2 %55-154# 

READS 42=34M 

READ? 63-358 63-57 63-63 

READB 69-874 69-59 69-65 \ 


’ 
RECOV 10-54 29-30" 35-103 42-55 50-119 53-57 55-72 55-76 60-59 61-97 63-72 63-76 68-59 69-75 


9-7 2 

RECTMP 10-56 19-46% 19-48 29-31%  35-103* 42-55% 50-109 50-113* 50-119" 53-47 53-51* ‘53-57* 55-59 55-65" 
55-72% 55-76% 55-109 55-113" 60-49 60-53" 60-59* 61-87 61-91* 61-97% 63-58 3-62 635-72" 63-76% 
63-111 9635-115" 68-51 68-55* 68-59% 69-60 69-64" 69-73% 69-77% 69-110 69-114" 70-72 70-76* 70-88 
71-67 7i=71e = =71=78% = 71-85" = 72-52 72-56* 72-62 . . 


EDO 36-54 : 
RETRY 10-534 15-56 15-53 15-96 1H<1GT HTT. P59 298598 Seals 52-27 34-88 35-179} =—640=55 42-257 
50-105 53-43 55-55 a 60-45 61-83 63-54 63-107 68-47 69-56 69-106 70-68 71-63 72-48 


fF ?=357# 66-15 66-53 67- 68-1 : ae 
REVCNT 9=1704 40-63 40-68% 40-131 42-206* 51-109* © | : ? 
REVECT  7=220# 42-107 42-186 44-40 44-95 44-99 : | 
REVLEN 7=315# 67-60 68-61 d a | : : 
' 9=1204 $653 22-25% 42-129 42-130 44-56 =. 44-57 52-10 52-11 52-20" §2=21% S$2-22e 57-10 57-11 
57-208 7=21% 57-22" oe: | 7 
REVSEC ?=798 7-7 1 
RECT 33-10 3-154 . 
RF TL. 69-69 69-1214 ( . 
RINC1 44-175 44-1798 
69-79 69-1194 


RPRIM P2618 422121 42-179) 42-233 44-48 44-162  =44-164 , 


RQUIT 65-82 65-804 


——— staat mai aL LLL LL LLL —ee_v—_— —e—eee 


5B 135 
DATA FILE FOR PDP-11 UDA DISK D MACRO x04.00 23-J:1-81 15:08:54 PAGE S-14 SEQ 0157 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


RTY 7-233" 15-25 15-42 15-50 15-52 15-74 

RTYCNT 10-464 35-100" 42-51* 66-77 

ga a aad 35-104 42-56 

RW. BUF 6a 590 35-73% 35-129" 42-25" 42-83* 50-88% 53-26% 55-31% 55-88% 60-27% 61-66: 63-30" 63-89" 67-35" 


eg 
RW.CMD  7=324 35-79% 35-133* 42-31% 42-86% 50-86* 53-22* 55-35* 55-86" 60-25" 61-62% 63-34* 63-87" 67=-31* 


RW DUM  7=2BH 35-81% 35-123" 42-33% 42-77% 50-95% 53-34% 55-24% 55-95* 60-35% 61-74s 63-22* 63-97" 67=42* 
RW.EDC deus 35-150 42-146* 44-17% 44-70% 50-74% 53-25% 55-53 60-26* 61-65* 63-52 67-34" 68-4" 69-54 


RW.£ 
RW.HI 7aZ1 35 =77%— -35=127* «42-29% 42-81" 50-93" 53-32" 55-29% 55-93" 60-33" 61-72" 635-28" 63-95" 67-40* 
RwWeLOW 7=30H 35-75% 35-125*% 42-27% 42-79% 50-90* 53-28% 55-26% 55-90% 60-29% 61-68* 63-24% 63-91% 67-357* 


RWCMD 7~3168 35-130 36-28 42-84 43-28 35~52 63-31 69-33 70-356 71-30 


SCR 9-30 9-49 9-784 21-10 26-25 26-68 26-88 26-130 28-9 29-102 30-4 34-29 34-59 34-70 
37-69 40-13 40-25 40-37 40-83 42-126 44-7 44-53 44-114 44-190 46-10 50-14 52-6 53-7 
55-10 57-6 59-45 60-8 61-44 67-16 67-77 68-5 69-7 70-20 11-17% 73-46 73-87 

SECCNT 10-314 35-68%  35-105* 56-6* 36-44% 37-12 37-59% 42-20% 42-57% 435-6* 43-44% 44-10% 44-107* 44-117* 
44~-182* 59-26% 59-196* 66-20*  66-45* | 


SECTCY 9=111H 26-116" 26-117* 35-23 35-40 
SECTRK  9=109H 26-106* 26-107* 26-111 26-112 26-219 27-13 = 29-7 $4-98 35-28 35-65 35-68 36-6 37-12 
: went 8 | SPB = hG4 0 42=20 4546 kha 906 46-208. 442222 50-19 63-17 7-2 F2~19:—«i7'S$*41—~‘é Sh 


EEK 15-1364 19-53 21-16 34-67 34-92 35-183 40-34 40-59 42-262 -122 59-226 61-144 67-83 
SEEKO 15-1384 15-165 
SEEK1 it a od 15=153 
SEEK 15=14 15-1604 
SEEK 15-149 15=162 #£15-1664 
SEEKS 15-1554 15-167 
SEEK 15-143 15-1594 
SEEK6 15-147 15-1548 
SEEK? 15-1514 15-152 
SEEKER 40-36 40-1464 
SEND 7-554 15-19 15=+92 32-13 
SER 727-2778 29-82 
SERNUM §9=-!1794 29-83 50-27 61-13 65-37 
SE TOVL x12 25-4a 
SFTRPT 32-654 32-67 
SHORTO 7-738 29-62 





2 


C i3 
DATA FILE FOR PDP=11 UDA DISK D MACRO K04.00 23-JUL-81 15:08:54 PAGE S$-15 SEO 0158 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


SIP 2-618 35-67 35-120. 42-19 42-74 «= 50-101 53-39) 55-41 = 55-101 60-41 61-79 63-40 63-103 67-49 
| 68-43 69-462 69-102 70-54 71-49 72-44 


SKERR 36-69 34-1328 
SkKIP1 34-51 34-554 


SKIP 
SKIP4 34=37 34-47 54-498 
SKIPS 37-53 37-56 37-594 


yh a 9-152H 27-18% 27-21* 36-9 43-9 


SND 1 
SNDCNT 10-454  42-178* 42-193* 42-203* 44-73% 66-11 66-39* 
SNDMNT 19-54 19=36 34-122 40-123 50-47 64-19 66-86 


ST 9-47 9-50 9-51 9-52 9-55 9-54 9-55 9-56 9-5 / 9-764 14-16 14-23 32-31 
ST.DBN 9=199% 30-36* 35-26 38-18 f3-er 


ST.OF 7=1834 14-18 

S’.DR 71764 14-27 

ST.ERB 7=1854 14-17 

ST.FO 7-1804 14-49 

ST.IN 7-1814 

ST.LBN 9-196 22-10 28-28 30-10* 47-12 49-9 49-25 51-81 51-91 51-103 53-30 55-28 55-92 59-79 
59-182 60-31 61-70 67-39 69-29 69-93 71-39 73-89 

ST.PS 9 P=1754 14-33 : 

ST.RBN 9=1974 30-16* 48-12 52-22 57-22 68-55 73-71 

ST.RU 7-1744 14-30 

ST.SR 7-178 14-45 

ST .WE 7-1824 14-58 

ST. WP 771774 

ST.XBN 99-1984 30-26* 35-43 38-39 50-9 50-10 50-79 65-26 63-93 70-16 70-17 70-33 72-34 73-34 

STACK 9-132 24-12 

STARIT 99-1514 36-11% 36-40 36-43% 43-11% 43-40 43-43* 

START 16-10 16-16 17-14 17-25 17-32 24-14 26-5 26-5 34-8 -8 37-10 37-10 40-5 


9=4 34 . 
40-5 44-2 44-2 46-6 46-6 50-5 50-5 51-2 51-2 55-2 55-2 56-7 56-7 61-2 
61-2 63-2 63-2 64-7 64-7 65-7 65-7 66-5 66-5 72-2 72 


STATFR “45 20-5354 

STATRE 43@ 20-47 20-49 

STATRT 528 = 20-55 

STATST 14-148 14-44 14-48 14-52 14-56 14-61 
STATUS “584 20-43 

STATVL 15-6 15-66 1§<142 15-194. 15-215 20-414 
STCKSV 15-53" 15-55 


STCLR 77-1314 30-9 30-15 30-25 30-35 
STCYL 7-864 26-149 53-12 55-11 60-13 61-49 67-21 68-15 69-8 Ti2e 


STDBN 
STDIAG 14=50 14-5354 





ane 


eee 


D 13 
DATA FILE FOR PDP=11 UDA DISK D MACRO x04.00 23-JUL-81 15:08:54 PAGE S-16 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


STFORM 
|STLBN 







ee ee 
Be eh eee 
<= moo 


Wr 


LPRABRERSD. 


TOTRC! 


16-46 


s 
RAOBUS ANE 
3 


14-498 


15-141 
14-31 
30-14 


29-74% 
16-34 


14-41 


20-254 


37-61 
37-464 


42-54* 
55-105* 
63-71* 
69-635* 
71-84* 
40-22 





' 14-7384 


15-122 


70-31* 
51-64 


50-105* 
55-107* 
65-75* 
69-72* 
72-48* 
51-20 


15-130 


26-35 


70-32* 
51-86* 


50-107* 


15-140 


26-44% 
26-123 
27-10* 
29-21 
38-9* 
47-8 
57-8* 
70-33% 


51-87* 


50-112* 


15-173 


50-118* 


EC OE OE LD I LCE COA 


15-181 


19=50 


26-56% 
26-156 


59-105 


26-58 
26-161* 
28-21* 
35-38* 
44-199» 
49-5* 
61-29 
73-64* 


59-141* 


70-75* 


SEQ 0159 
26-69" 26-72" 
26-164 26-176" 
28-22  29=4% 
35-39 37-78% 
44-200* 44-203 
49-6 49-7 
61-107 62-8 
73-65 73-818 
59-142 59-153 
55-55" 55-57% 
61-90" 61-96« 
68-49" 68-54" 
70-87% 71-63" 


—— —---— 


E 13 
DATA FILE FOR PDP=11 UDA DISK D MACRO *04.00 23-JUL-81 15:08:54 PAGE S-17 
TABLE (CREF VO1-05 ) 


CROSS REFERENCE 


TRK 77-2564 
TRKCNT 10-404 
TRECYL 9YJ=1168 
TRKGRE 7-934 
TWOR 7=3118 
. TwOC 10-434 
TWRD 10-204 
SH $132 
UMKIP 52-84 
UMKIP1 52-5 
vie ~3384 
UN.ERI 99-124 
35-185" 
~ERT YJullf# 
UN, SEK 9-154 
UNIT 9-434 
35-66 
61-77 
SEC 7-1414 
UPDATE 7-694 
UPDPNT 10-474 
URE AD bees 
UWRITE 76354 
v1 7=2504 
67=-25* 
V 7=2514 
V 7-252 
V4 7-253 
VLD 7=1344 
VLD1 7=1354 
WL 67-124 
WP 7-2394 
WRBLK 9-194 
7-47 
WRCMD 7-3174 
WRFLG 9=1424 
WRIT10 ges 
watts 5-964 
WRIT15 68-384 
WRITE 7-544 
WRITE? 50-964 
WRITES 53-354 
WRITES 60- 
WRITES 61-754 
WRITES 72-398 
WRITES 63-984 
WRITES 67-448 
XAGAIN 54-84 
x 9-1844 
XBD fa oy 
XBNC YL ho 
XBNFND 73-22 
XBNIT 34-5) 
XBNSEC 99=-115# 
40-132 


é 
40-1 364 


67-79 


34-102* 


65-100 
40-109 
51-24 


50-18* 
68-17* 


63-116 


66-74 
66-76* 
26-137 


26-126" 


40-40 
26-47 
40-38 


44-124 


34-53 


38-8 


40-101* 


26-59 


15-99* 


42-256* 


15-58* 


15-91 
40-49 
68-40 


> how £4 


51-108* 


53-16* 
69-1 3* 
67-76* 
60-12* 


53-38 
69-100 
60-20 
58-4* 


60-42 


35-57 


38-9 


26-114 


32-16* 


42-25/* 


16-14% 


58-41 


61-80 


73-20 


ee ee a 


32-17% 


42-264* 


16-17* 


15-138 


73-24 


32-20* 
16-19* 


15-210 


67-50 — 


68-44 


34-87* 
17-39» 
32-12 


50-98 
72-4) 


61-51* 
72-16* 


69-16* 


61-58 
69-84 


69-105 


34-88* 


17-41" 


32-76 
ph ih Ys 


61-53* 
72-18* 


70-27* 


61-78 
(2-25 


72-45 


34-94% 


32-78* 
55-39 


63-14% 


71-21% 


63-83 


35-178" 


33-24 
55-98 


63-16* 


72-20* 


63-101 


35-179* 


34-82 
60-38 


67-23" 


67-27 


DATA FILE FOR PDP=11 UD 


“ROSS REFERENCE 


KEORCT 


Se ee es ee ere 


TABLE ¢ 
SL<4 7's 


4 
C 


F 13 
DISK D MATRO 04.00 23-JUL-81 15:08:54 PAGE S-18 
REF yO1-05 


40-814 
40-130 
59-140 


oa. - 


j 


59-167 


59-178 


59-187 


59-1924 


ee 06 Ee St 


a 


SEQ 0161 


G 13 
ATA FILE FOR PDP=11 UDA DISK D MACRO 046.00 23-JUiL-81 15:08:54 PAGE M1 SEQ 0162 
ROSS REFERENCE TABLE (CREF v01-05 ) 


ome ops 1-44 9-3 
OME ND 1-328 73-96 


OMOVLY 1=18# 9-3 26-5 34-8 37-10 40-5 44-2 46-6 50-5 51-2 55=2 56-7 61-2 63-2 


SUBINC 8-106" 37-51 37-54 44-% 44-103 44-167 50-133 59-248 61-126 66-43 70-96 71-91 72-77 

MSG 8-564 9-47 9-48 9-49 9-50 9~57 9-52 9-55 9-54 9-55 9-56 9-57 

OVTERM = Ga 9-34 9~34 26-5 26-54 34-8 34-84 37-10 37-108 40-5 40-54 44-2 44-28 46-6 
46~64 50-5 50-54 $1-2 51-24 py an” 55-24 56-7 56-74 61-2 61-28 63-2 63-24 64-7 


t.. 1990S» .. 16-39 17-28 20-17 20-33 
4 .Sl-117 . 56-30 $9=212 59-217 59-220 


0-6 20-25 20-41 
9-14 59-19 61=22 





PLU SHA B-74e 55-6 67-4 69-5 
«OR R=G7# 20-10 


OO ee teres ee Que 6 A A A tS EG ALLL NA ELLE CLOG LLL LAAT ——————— enema neemeiaeeemt a enamine ae 


